【发布时间】:2016-02-03 15:33:00
【问题描述】:
我有以下功能(本论坛有人在另一个问题中回答):
Public Function mySplit(ByVal my_field As String) As String
Dim result As String = ""
If my_field is Nothing or my_field = "" Then
Return result
End If
Dim TestArray() As String = my_field.Split(New Char() {" "c})
Dim word as String
Dim counter as Integer = 0
For Each word In TestArray
counter = counter +1
If counter = TestArray.Length Then
result = result + word
Else
result = result + word + vbCrLf
End if
Next
Return result
End Function
这适用于收集单词:
"IMAGE01 IMAGE02 IMAGE03" 并在报告中显示为:
IMAGE01
IMAGE02
IMAGE03
但是,我有一些名为 "IMAGESYS RES01" 的图像,由于上述功能,它们被分成两行:
IMAGESYS
RES01
我需要避免这种情况,因为上面的"IMAGESYS RES01" 只是一个文件。
【问题讨论】:
-
is 两个字的值总是
IMAGESYS RESXX?尝试识别文件名中的常见模式。 -
是的,此时它应该始终是“IMAGESYS RESxx”。