AR16 数组脚本问题

我有个json是这样的

• 1. "wei_hai_shi_bie":[
     
  2. {
     
  3. "name":"机械伤害",
     
  4. "ancestors":[
     
  5. {
     
  6. "Id":"D1FE114C-2118-5E91-DA49-3A0B54DB0F94",
     
  7. "HierarchyId":"/31/",
     
  8. "HierarchyLevel":1,
     
  9. "ColorContent":"",
     
  10. "ColorSwitch":false,
      
  11. "name":"危害识别-南京诚志送电"
      
  12. }
      
  13. ],
      
  14. "id":"fdf53428-6039-b2c3-76d5-3a0b54db5920",
      
  15. "dictCode":"D1FE114C-2118-5E91-DA49-3A0B54DB0F94",
      
  16. "nodeCode":"ji_xie_shang_hai",
      
  17. "colorContent":"",
      
  18. "colorSwitch":false,
      
  19. "hierarchyId":"/31/1/",
      
  20. "TAGSORT":0
      
  21. },
      
  22. {
      
  23. "name":"触电",
      
  24. "ancestors":[
      
  25. {
      
  26. "Id":"D1FE114C-2118-5E91-DA49-3A0B54DB0F94",
      
  27. "HierarchyId":"/31/",
      
  28. "HierarchyLevel":1,
      
  29. "ColorContent":"",
      
  30. "ColorSwitch":false,
      
  31. "name":"危害识别-南京诚志送电"
      
  32. }
      
  33. ],
      
  34. "id":"0cf5622a-8563-9137-c706-3a0b54db70e6",
      
  35. "dictCode":"D1FE114C-2118-5E91-DA49-3A0B54DB0F94",
      
  36. "nodeCode":"chu_dian",
      
  37. "colorContent":"",
      
  38. "colorSwitch":false,
      
  39. "hierarchyId":"/31/2/",
      
  40. "TAGSORT":0
      
  41. }
      
  42. ]

  复制代码
  我要取出，拿$.['wei_hai_shi_bie']
• .name。与”机械伤害,触电,电弧灼伤,误送“作比较。如果包含加方框，但是在软件中放入数据，会自动循环$.['wei_hai_shi_bie']
• .name，导致我脚本拿出来的数据是这样的，我想的是两个一行比如。但是我现在出来的是这样的。代码如下
  1. Function ProcessData(a As String, b As String) As String
     
  2.         Dim arrA() As String
     
  3.         arrA = Split(a, ";")
     
  4. 
     
  5.         Dim result As String
     
  6.         result = ""
     
  7. 
     
  8.         ' 遍历数组B中的每个元素
     
  9.         Dim i As Integer
     
  10.         For Each itema As String In arrA
      
  11.                 If itema = b Then
      
  12.                         result = result & itema & "■  "
      
  13.                 Else
      
  14.                         result = result & itema & "□  "
      
  15.                 End If
      
  16.         Next
      
  17. 
      
  18.         ' 去掉最后一个逗号
      
  19.         result = Left(result, Len(result))
      
  20. 
      
  21.         ' 返回结果
      
  22.         ProcessData = result
      
  23. End Function

  复制代码
  
  

我们分析了您的文件，并不是您的数据重复显示了三次，是您的数据源中有三条数据，您的函数调用了三次，每次传递的参数都不同，展现的效果也不同：



出现这个情况的原因是因为您使用的是表格组件进行展示，表格组件会根据绑定的数据集的数据量自动扩展，扩展的每一行都是一条数据；然后每一行都调用了咱们的函数，并把对应行的字段的值当做入参传到了脚本函数里面，就出现了您遇到的情况：


如果您只想让现实一次，那您可以用单独的文本框组件来显示，这样只会显示一次，但是返回的结果是根据第一条数据进行处理的结果：

问题描述:

脚本控制没两个数据换一行

解决方法：
您的脚本代码中并没有控制每两个换一行，您只需要做一个判断，每次增2之后，加一个换行符即可，下面是我修改后的代码:

1. Function ProcessData(a As String, b As String) As String
   
2.         Dim arrA() As String
   
3.         arrA = Split(a, ";")
   
4. 
   
5.         Dim result As String
   
6.         result = ""
   
7. 
   
8.         ' 遍历数组B中的每个元素
   
9.         Dim i As Integer
   
10.         i = 0
    
11.         For Each itema As String In arrA
    
12.                 If itema = b Then
    
13.                         result = result & itema & "■  "
    
14.                 Else
    
15.                         result = result & itema & "□  "
    
16.                 End If
    
17.                 If i Mod 2 = 1 Then
    
18.                         result = result & vbCrLf ' 添加换行符
    
19.                 End If
    
20.                 i = i + 1
    
21.         Next
    
22. 
    
23.         ' 去掉最后一个逗号
    
24.         result = Left(result, Len(result))
    
25. 
    
26.         ' 返回结果
    
27.         ProcessData = result
    
28. End Function

复制代码

实现效果如下:

Felix.Li 发表于 2023-10-10 14:04
问题描述:

脚本控制没两个数据换一行

但是出来的结果还是循环了三遍，和我的结果一样，且只是做了一个两个一行的操作。我想的是输出出来结果为         
机械伤害■    触电■
电弧灼伤■    误送□

inroad 发表于 2023-10-10 14:20
但是出来的结果还是循环了三遍，和我的结果一样，且只是做了一个两个一行的操作。我想的是输出出来结果为 ...

楼主，请帮我分析应该怎么做。数据源就是顶楼帖子上的数据，你可以尝试用我的数据输出。我的入参是ProcessData("机械伤害;触电;电弧灼伤;误送",Fields!Field1.Value)

inroad 发表于 2023-10-10 14:20
但是出来的结果还是循环了三遍，和我的结果一样，且只是做了一个两个一行的操作。我想的是输出出来结果为 ...

而不是出来三遍
机械伤害■    触电□
电弧灼伤□    误送□

机械伤害□    触电■
电弧灼伤□    误送□

机械伤害□    触电□
电弧灼伤■    误送□

inroad 发表于 2023-10-10 14:24
而不是出来三遍
机械伤害■    触电□
电弧灼伤□    误送□

您好，那应该是您的入参有问题了，我使用楼上版主的脚本，用您的入参进行测试，没有出现重复的情况，您看一下是不是您的入参有问题，

Eden.Sun 发表于 2023-10-10 15:45
您好，那应该是您的入参有问题了，我使用楼上版主的脚本，用您的入参进行测试，没有出现重复的情况，您 ...

老哥，你的入参就和我不一样吧。你可以看看我的入参，在4#

inroad 发表于 2023-10-10 16:49
老哥，你的入参就和我不一样吧。你可以看看我的入参，在4#

方便的话，您提供一下您的报表文件和一份demo数据，我们本地试一下。我这边确实没有复现出来您的这种场景。

Eden.Sun 发表于 2023-10-10 18:01
方便的话，您提供一下您的报表文件和一份demo数据，我们本地试一下。我这边确实没有复现出来您的这种场景 ...

您好，我的deom可以看下