Dim strs As List(of String) = Tables("材料").Current.DataRow.lines("图片") '获取文件集合
’备注：图片列的内容 为：
人机材基础\图片\H其它消耗费用\自攻螺丝钉.jpg
人机材基础\图片\D装饰材料\自攻钉M3.5x25.jpg
For Each str As String In strs
output.show(str)
'str =
Dim n3 As Integer = str.LastIndexOf("\")+1
Dim n1 As Integer = str.LastIndexOf(".")
Dim n2 As Integer =str.Length
Dim mc1,mc2 As String
output.show(n3 & "-" & n2-n1+1)
'output.show(str.SubString(n) )
mc1= str.SubString(n3,n2-n1+1)
'msgbox(1)
mc2= str.SubString(n1)
' str =str.Split("\")
output.show(mc1)
output.show(mc2)
Next
命令窗口出值 为：
人机材基础\图片\H其它消耗费用\自攻螺丝钉.jpg
17-5
自攻螺丝钉
.jpg
人机材基础\图片\D装饰材料\自攻钉M3.5x25.jpg
15-5
自攻钉M3
.jpg
问:第一次是对的；
第二次错的，应该是：
自攻钉M3.5x25
.jpg
加好友 
发短信
Post By：2018/7/14 22:02:00 [只看该作者]
