F#类/模块中自动生成的静态字段会阻止创建SQL CLR函数

如何解决F#类/模块中自动生成的静态字段会阻止创建SQL CLR函数

|| 我正在尝试用F#编写CLR用户定义函数,但是
CREATE ASSEMBLY
给出错误:   CREATE ASSEMBLY失败,因为在安全程序集\'MyNamespace.SqlServer.Text \'中键入\'StringMetrics \'具有静态字段\'field1776 @ \'。安全程序集中静态字段的属性必须在Visual C#中标记为只读,在Visual Basic中标记为只读,或者在Visual C ++和中间语言中标记为initonly。 这是Reflector中的外观。这不是我明确创建的字段。
[DebuggerBrowsable(DebuggerBrowsableState.Never)]
internal static <PrivateImplementationDetails$MyNamespace-SqlServer-Text>.T1775_18Bytes@ field1776@; // data size: 18 bytes
我尝试使用模块和类。两者都在不同的地方生成场。这个字段是做什么用的?有没有办法避免其创建?我应该使用另一种方法在F#中创建CLR函数吗?可能吗 完整的代码
namespace MyNamespace.SqlServer.Text

module StringMetrics =

    open System
    open System.Collections.Generic
    open System.Data
    open System.Data.SqlTypes

    [<CompiledName(\"FuzzyMatch\")>]
    let fuzzyMatch (strA:SqlString) (strB:SqlString) =
        if strA.IsNull || strB.IsNull then SqlInt32.Zero
        else
            let comparer = StringComparer.OrdinalIgnoreCase

            let wordBoundaries = [|\' \'; \'\\t\'; \'\\n\'; \'\\r\'; \',\'; \':\'; \';\'; \'(\'; \')\'|]

            let stringEquals a b = comparer.Equals(a,b)

            let isSubstring (search:string) (find:string) = find.Length >= search.Length / 2 && search.IndexOf(find,StringComparison.OrdinalIgnoreCase) >= 0

            let split (str:string) = str.Split(wordBoundaries)

            let score (strA:string) (strB:string)  =
                if stringEquals strA strB then strA.Length * 3
                else
                    let lenA,lenB = strA.Length,strB.Length
                    if strA |> isSubstring strB then lenA * 2
                    elif strB |> isSubstring strA then lenB * 2
                    else 0

            let arrA,arrB = split strA.Value,split strB.Value
            let dictA,dictB = Dictionary(),Dictionary()

            arrA |> Seq.iteri (fun i a ->
                arrB |> Seq.iteri (fun j b ->
                    match score a b with
                    | 0 -> ()
                    | s -> 
                        match dictB.TryGetValue(j) with
                        | true,(s\',i\') -> //\'
                            if s > s\' then //\'
                                dictA.Add(i,j)
                                dictB.[j] <- (s,i)
                        | _ -> 
                            dictA.Add(i,j)
                            dictB.Add(j,(s,i))))

            let matchScore = dictB |> Seq.sumBy (function (KeyValue(_,_))) -> s)
            let nonMatchA = 
                arrA
                |> Seq.mapi (fun i a -> i,a)
                |> Seq.fold (fun s (i,a) -> 
                    if dictA.ContainsKey(i) then s
                    else s + a.Length) 0
            let wordsB = HashSet(seq { for (KeyValue(i,_)) in dictB -> arrB.[i] },comparer)
            let nonMatchB = 
                arrB |> Seq.fold (fun s b -> 
                    if wordsB.Add(b) then s + b.Length
                    else s) 0

            SqlInt32(matchScore - nonMatchA - nonMatchB)
    

解决方法

看来它是由
wordBoundaries
数组生成的。如果改为将其表示为列表,并在运行时将其转换为数组,则不会生成此内部静态字段:
let wordBoundaries = Array.ofList [\' \'; \'\\t\'; \'\\n\'; \'\\r\'; \',\'; \':\'; \';\'; \'(\'; \')\']
但是,似乎函数本身也表示为静态的,非只读的 领域:
public static SqlInt32 fuzzyMatch(SqlString strA,SqlString strB);
也许使用类而不是模块可以解决此问题。     

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


依赖报错 idea导入项目后依赖报错,解决方案:https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错:更换其他版本 无法下载依赖可参考:https://blog.csdn.net/weixin_42628809/a
错误1:代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
错误1:gradle项目控制台输出为乱码 # 解决方案:https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
错误还原:在查询的过程中,传入的workType为0时,该条件不起作用 &lt;select id=&quot;xxx&quot;&gt; SELECT di.id, di.name, di.work_type, di.updated... &lt;where&gt; &lt;if test=&qu
报错如下,gcc版本太低 ^ server.c:5346:31: 错误:‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
解决方案1 1、改项目中.idea/workspace.xml配置文件,增加dynamic.classpath参数 2、搜索PropertiesComponent,添加如下 &lt;property name=&quot;dynamic.classpath&quot; value=&quot;tru
删除根组件app.vue中的默认代码后报错:Module Error (from ./node_modules/eslint-loader/index.js): 解决方案:关闭ESlint代码检测,在项目根目录创建vue.config.js,在文件中添加 module.exports = { lin
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
错误1:Request method ‘DELETE‘ not supported 错误还原:controller层有一个接口,访问该接口时报错:Request method ‘DELETE‘ not supported 错误原因:没有接收到前端传入的参数,修改为如下 参考 错误2:cannot r
错误1:启动docker镜像时报错:Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法:重启docker -&gt; systemctl r
错误1:private field ‘xxx‘ is never assigned 按Altʾnter快捷键,选择第2项 参考:https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2:启动时报错,不能找到主启动类 #
报错如下,通过源不能下载,最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
错误1:maven打包报错 错误还原:使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
错误1:服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
错误1:运行项目后报如下错误 解决方案 报错2:Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案:在pom.
参考 错误原因 过滤器或拦截器在生效时,redisTemplate还没有注入 解决方案:在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-