AR 16为什么用脚本VB代码不能使用，难道是平台字节封装的方法，只能用封装好的方法...

我的需求是这样的，有一个这样的对象，将b中包含a的对象前加@，没有包含的对象加#。然后输出为@1,@2,#3,#4,#5      写的vb代码是这样的，我在vs里面是可以使用的，但是在葡萄城里不能使用，报错。
Function stringHandle3(ByVal strA As String, ByVal strB As String) As String
        Dim aCollection As IEnumerable(Of String) = strA.Split(","c)
        Dim bCollection As IEnumerable(Of String) = strB.Split(","c)
        Dim resultCollection As New List(Of String)
        For Each item In bCollection
            If aCollection.Contains(item) Then
                resultCollection.Add("@" & item)
            Else
                resultCollection.Add("#" & item)
            End If
        Next
        Dim resultStr As String = String.Join(",", resultCollection)
        Return String.Join(",", resultCollection)
    End Function

inroad 发表于 2023-5-4 18:26
我的格式其实是这样的，然后两个空格就会报错，我不太理解这个脚本

您试一下这个:

1. Function ProcessData(a As String, b As String) As String
   
2.         Dim arrA() As String
   
3.         arrA = Split(a, ",")
   
4. 
   
5.         Dim arrB() As String
   
6.         arrB = Split(b, ",")
   
7. 
   
8.         Dim result As String
   
9.         result = ""
   
10. 
    
11.         ' 遍历数组B中的每个元素
    
12.         Dim i As Integer
    
13.         For i = 0 To UBound(arrB)
    
14. 
    
15.                 ' 判断当前元素是否包含在数组A中
    
16.                 If IsInArray(arrB(i), arrA) Then
    
17.                         result = result & "  ■" & i + 1
    
18.                 Else
    
19.                         result = result & "  □" & i + 1
    
20.                 End If
    
21. 
    
22.         Next
    
23. 
    
24. 
    
25.         ' 返回结果
    
26.         ProcessData = result
    
27. End Function
    
28. 
    
29. ' 判断某个元素是否包含在数组中
    
30. Function IsInArray(str As String, arr As Object) As Boolean
    
31.         Dim j As Integer
    
32.         For j = 0 To UBound(arr)
    
33.                 If arr(j) = str Then
    
34.                         IsInArray = True
    
35.                         Exit Function
    
36.                 End If
    
37.         Next
    
38.         IsInArray = False
    
39. End Function

复制代码

IEnumerable
我们只能写最原生的逻辑，所有引入的确实没办法，所以这个应该在AR中跑会报错

Felix.Li 发表于 2023-5-4 12:24
IEnumerable
我们只能写最原生的逻辑，所有引入的确实没办法，所以这个应该在AR中跑会报错

那我如何实现我这个方法呢

inroad 发表于 2023-5-4 14:26
那我如何实现我这个方法呢

你可以用下面这个试一下:

1. Function ProcessData(a As String, b As String) As String
   
2.         Dim arrA() As String
   
3.         arrA = Split(a, ",")
   
4. 
   
5.         Dim arrB() As String
   
6.         arrB = Split(b, ",")
   
7. 
   
8.         Dim result As String
   
9.         result = ""
   
10. 
    
11.         ' 遍历数组B中的每个元素
    
12.         Dim i As Integer
    
13.         For i = 0 To UBound(arrB)
    
14. 
    
15.                 ' 判断当前元素是否包含在数组A中
    
16.                 If IsInArray(arrB(i), arrA) Then
    
17.                         result = result & "@" & i + 1 & ","
    
18.                 Else
    
19.                         result = result & "#" & i + 1 & ","
    
20.                 End If
    
21. 
    
22.         Next
    
23. 
    
24.         ' 去掉最后一个逗号
    
25.         result = Left(result, Len(result) - 1)
    
26. 
    
27.         ' 返回结果
    
28.         ProcessData = result
    
29. End Function
    
30. 
    
31. ' 判断某个元素是否包含在数组中
    
32. Function IsInArray(str As String, arr As Object) As Boolean
    
33.         Dim j As Integer
    
34.         For j = 0 To UBound(arr)
    
35.                 If arr(j) = str Then
    
36.                         IsInArray = True
    
37.                         Exit Function
    
38.                 End If
    
39.         Next
    
40.         IsInArray = False
    
41. End Function

复制代码

Felix.Li 发表于 2023-5-4 16:35
你可以用下面这个试一下:

我把它变成了这样，但是不知道为什么加两个空格就报错，一个不报错   result = result &"  "& "@" & i + 1 & ","   

1. Function ProcessData(a As String, b As String) As String

复制代码

inroad 发表于 2023-5-4 18:08
我把它变成了这样，但是不知道为什么加两个空格就报错，一个不报错   result = result &"  "& "@" & i +  ...

您好，您在检查一下，我这边根据您的描述进行了测试，预览也是正常的。

Bella.Yuan 发表于 2023-5-4 18:18
您好，您在检查一下，我这边根据您的描述进行了测试，预览也是正常的。

我的格式其实是这样的，然后两个空格就会报错，我不太理解这个脚本

1. Function ProcessData(a As String, b As String) As String
   
2.         Dim arrA() As String
   
3.         arrA = Split(a, ";")
   
4. 
   
5.         Dim arrB() As String
   
6.         arrB = Split(b, ";")
   
7. 
   
8.         Dim result As String
   
9.         result = ""
   
10. 
    
11.         ' 遍历数组B中的每个元素
    
12.         Dim i As Integer
    
13.         For i = 0 To UBound(arrB)
    
14. 
    
15.                 ' 判断当前元素是否包含在数组A中
    
16.                 If IsInArray(arrB(i), arrA) Then
    
17.                         result = result & " " & "■" & arrB(i)
    
18.                 Else
    
19.                         result = result & " " & "□" & arrB(i)
    
20.                 End If
    
21. 
    
22.         Next
    
23. 
    
24.         ' 去掉最后一个逗号
    
25.         result = Left(result, Len(result) - 1)
    
26. 
    
27.         ' 返回结果
    
28.         ProcessData = result
    
29. End Function

复制代码

Felix.Li 发表于 2023-5-4 18:46
您试一下这个:

我知道为什么了，可能是表格宽度不够，我拉宽后，是可以的。

inroad 发表于 2023-5-5 09:32
我知道为什么了，可能是表格宽度不够，我拉宽后，是可以的。