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

Felix.Li · Felix.Li

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

您试一下这个:

Function ProcessData(a As String, b As String) As String
Dim arrA() As String
arrA = Split(a, ",")
Dim arrB() As String
arrB = Split(b, ",")
Dim result As String
result = ""
' 遍历数组B中的每个元素
Dim i As Integer
For i = 0 To UBound(arrB)
' 判断当前元素是否包含在数组A中
If IsInArray(arrB(i), arrA) Then
result = result & " ■" & i + 1
Else
result = result & " □" & i + 1
End If
Next
' 返回结果
ProcessData = result
End Function
' 判断某个元素是否包含在数组中
Function IsInArray(str As String, arr As Object) As Boolean
Dim j As Integer
For j = 0 To UBound(arr)
If arr(j) = str Then
IsInArray = True
Exit Function
End If
Next
IsInArray = False
End Function

复制代码

Felix.Li · Felix.Li

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

inroad · inroad

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

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

Felix.Li · Felix.Li

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

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

Function ProcessData(a As String, b As String) As String
Dim arrA() As String
arrA = Split(a, ",")
Dim arrB() As String
arrB = Split(b, ",")
Dim result As String
result = ""
' 遍历数组B中的每个元素
Dim i As Integer
For i = 0 To UBound(arrB)
' 判断当前元素是否包含在数组A中
If IsInArray(arrB(i), arrA) Then
result = result & "@" & i + 1 & ","
Else
result = result & "#" & i + 1 & ","
End If
Next
' 去掉最后一个逗号
result = Left(result, Len(result) - 1)
' 返回结果
ProcessData = result
End Function
' 判断某个元素是否包含在数组中
Function IsInArray(str As String, arr As Object) As Boolean
Dim j As Integer
For j = 0 To UBound(arr)
If arr(j) = str Then
IsInArray = True
Exit Function
End If
Next
IsInArray = False
End Function

复制代码

inroad · inroad

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

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

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

复制代码

Bella.Yuan · Bella.Yuan

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

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

inroad · inroad

本帖最后由 inroad 于 2023-5-4 18:29 编辑

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

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

Function ProcessData(a As String, b As String) As String
Dim arrA() As String
arrA = Split(a, ";")
Dim arrB() As String
arrB = Split(b, ";")
Dim result As String
result = ""
' 遍历数组B中的每个元素
Dim i As Integer
For i = 0 To UBound(arrB)
' 判断当前元素是否包含在数组A中
If IsInArray(arrB(i), arrA) Then
result = result & " " & "■" & arrB(i)
Else
result = result & " " & "□" & arrB(i)
End If
Next
' 去掉最后一个逗号
result = Left(result, Len(result) - 1)
' 返回结果
ProcessData = result
End Function

复制代码

inroad · inroad

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

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

Felix.Li · Felix.Li

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

		自动登录	找回密码
密码			立即注册

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

最佳答案

9 个回复

本帖子中包含更多资源

本帖子中包含更多资源

Wyn高级认证

Wyn认证