Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量保存照片


  共有7163人关注过本帖树形打印复制链接

主题：批量保存照片
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112401 积分：572273 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/14 20:53:00 [显示全部帖子]

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是：" & dlg.SelectedPath,"提示")

For Each dr As DataRow In DataTables("表A").Select("第一列 is not null")
    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
        Dim name As String = FileSys.GetName(file)
        If name.Contains(dr("第一列")) Then
            FileSys.CopyFile(file, ProjectPath & "图片/" & name, True)
            dr("第二列") = name
        End If
    Next
Next
DataTables("表A").datacols("第二列").DefaultFolder  = ProjectPath & "图片/"


End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112401 积分：572273 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/14 22:41:00 [显示全部帖子]

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    For Each dr As DataRow In DataTables("表A").Select("第一列 is not null")
        For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
            Dim name As String = FileSys.GetName(file)
            If name.Contains(dr("第一列")) Then
                FileSys.CopyFile(file, ProjectPath & "图片/" & name, True)
                If dr.IsNull("第二列")
                    dr("第二列") = name
                Else
                    dr("第二列") &= vbcrlf & name
                End If
            End If
        Next
    Next
    DataTables("表A").datacols("第二列").DefaultFolder  = ProjectPath & "图片/"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112401 积分：572273 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/15 8:34:00 [显示全部帖子]

图片文件名称是怎么样的？截图看看

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112401 积分：572273 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/15 8:59:00 [显示全部帖子]

我要看实际数据，麻烦截图说明

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112401 积分：572273 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/15 14:07:00 [显示全部帖子]

姓名和其它内容就不能价格空格或者其它符号隔开么。

除了“手持身份证”、“经营场所”、“收银台”、“营业执照”之外还会有其它类型的字符吗。如果其它内容不固定，没有办法取人名的。

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112401 积分：572273 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/15 15:10:00 [显示全部帖子]

客户姓名+分隔符+其他字符，如：张三-手持身份证，就算是空格都可以：张三 手持身份证

不然没有办法判断正确的名称的。

你要遍历所有的其它字符，然后去掉。如果出现一个新的其它字符又要改代码
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112401 积分：572273 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/15 15:21:00 [显示全部帖子]

你要保证的字不会出现在人名或者其它字符中才行

......
For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
            Dim name As String = FileSys.GetName(file)
            Dim n2() As String = name.Split("的")
            If n2(0) = dr("第一列") Then
                FileSys.CopyFile(file, ProjectPath & "图片/" & name, True)
                If dr.IsNull("第二列")
                    dr("第二列") = name
                Else
                    dr("第二列") &= vbcrlf & name
                End If
            End If
        Next
......
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112401 积分：572273 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/7/15 16:04:00 [显示全部帖子]

Dim n2() As String = name.Split("-")

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询