以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  lines遍历  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121887)
--  作者：yancheng
--  发布时间：2018/7/14 22:02:00
--  lines遍历
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
--  作者：y2287958
--  发布时间：2018/7/15 8:32:00
--  
直接说要什么结果吧，这绕来绕去怪痛苦的。
是要：全路径+文件名+后缀名？
--  作者：y2287958
--  发布时间：2018/7/15 11:05:00
--  
Dim strs As List(of String) =  Tables("材料").Current.DataRow.lines("图片")
For Each str As String In strs
    output.show(str)
    Dim i As Integer = str.Split("\\").Length-1
    Dim s As String = str.Split("\\")(i)
    i = s.LastIndexOf(".")
    output.show(left(s,i))
    output.show(s.SubString(i))
Next