以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提取根目录  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123772)
--  作者：douglas738888
--  发布时间：2018/8/22 17:29:00
--  提取根目录

请教老师，如何用代码提取比如上传文件中的根目录到另外一列中，因为不同行单元格里的根目录是有不同的，无法用字符方法提取

 

例如：

 

已上传文件       提取跟目录

/AA/文件A1.doc       /AA/

/AAB/文件2.pdf    /AAB/

/B/文件C3. xls       /B/
--  作者：有点蓝
--  发布时间：2018/8/22 17:37:00
--  
Dim s As String = "/AA/文件A1.doc"
msgbox(s.Split("/")(1))
--  作者：douglas738888
--  发布时间：2018/8/23 10:25:00
--  

请教老师，根据指导的代码，我变动了一下，仅提文件名，这样写代码虽然能提出文件名了，但也报错

 

Dim rt As Row = Tables("测试C").Current
Dim s As String = rt("入档文件")
rt("文件名") = s.Split("/")(2)

 

 

 

详细错误信息：

调用的目标发生了异常。

从字符串“/RQXMXX/VB.docx”到类型“Integer”的转换无效。

输入字符串的格式不正确。
--  作者：有点蓝
--  发布时间：2018/8/23 10:33:00
--  
这个代码不会有这种提示

关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。
--  作者：douglas738888
--  发布时间：2018/8/23 10:55:00
--  

已删除BIN了，重启，老师现在报错  请老师再指导指导

错误所在事件：表，测试C，DataColChanged
详细错误信息：
调用的目标发生了异常。
索引超出了数组界限。

 

根据表，测试B 勾选入档逻辑列，表，测试C就增加行，并跨表引用 表，测试B 的数据                现在想实现 表，测试C增加行后，入档文件的文件名前就不加前缀的根目录，要重新配置另外一个根目录通过FTP上传到数据库中

 

表，测试B代码    此表的待入档文件带根目录 

Select Case e.DataCol.name
    Case "入档"       
        Dim dr22 As DataRow = DataTables("测试C").Find("项目编号 = \'" & e.DataRow("项目编号") & "\'")
        If dr22 Is Nothing Then
            If e.DataRow("入档") = True  Then
                dr22 = DataTables("测试C").AddNew()
                dr22("项目编号") = e.DataRow("项目编号")
                dr22("入档文件") = e.DataRow("待入档文件")
            End If
        End If
End Select

 

[此贴子已经被作者于2018/8/23 10:58:47编辑过]
--  作者：有点蓝
--  发布时间：2018/8/23 11:14:00
--  
dr22 = DataTables("测试C").AddNew()
dr22("项目编号") = e.DataRow("项目编号")
dr22("入档文件") = e.DataRow("待入档文件")
if dr22.isnull("入档文件") = false
    Dim srr() As String = dr22("入档文件").split("/")
    dr22("文件名") = srr(srr.length - 1)
end if