以文本方式查看主题

-  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