以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  还是照片问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102738)

--  作者:HJG_HB950207
--  发布时间:2017/6/24 22:46:00
--  还是照片问题
d:\\zp 中有很多照片,如张三峰在北京,张三峰在湖南,张三峰在上海,李四新在湖南,李四新在北京,李四新在广州。。。。。。。。。

表A 有两列 
               姓名               照片
               张三峰
              李四新
                :
                :
   想从D:\\ZP 中,按姓名将每个人的在表A中归类,编如下代码后,没有归类,将所有照片全部导入了记录的照片列,请老师修改:

        For Each F As String In FileSys.GetFiles("D:\\ZP\\")
               Dim ifo As new FileInfo(f)
               Dim name As String = ifo.name.Replace(ifo.Extension, "")
               Dim A As String
               a=name
               Dim bb As String
               bb=a.Substring(0,3)
              
                Dim fdr As DataRow = DataTables("表A").Find("  姓名  = \'" & bb & "\'")
             If fdr IsNot Nothing Then
                   fdr("照片") ="d:\\zP\\"&Ifo.Name 
             End If
       Next
       截取函数也好像用得也不合适,因为有单名或四个字姓名的

         谢谢!

     

--  作者:有点色
--  发布时间:2017/6/25 11:37:00
--  
For Each F As String In FileSys.GetFiles("D:\\ZP\\")
    Dim ifo As new FileInfo(f)
    Dim name As String = ""
    If name.IndexOf("在") Then
        name = ifo.name.Split("在")(0)
    Else      
        name = ifo.name.Replace(ifo.Extension, "")
    End If
   
    Dim fdr As DataRow = DataTables("表A").Find("  姓名  = \'" & name & "\'")
    If fdr IsNot Nothing Then
        fdr("照片") &= iif(fdr("照片")=Nothing, "", vbcrlf) & ifo.name
    End If
Next