调试不仅仅为了提示错误，也可以用来提示关键数据是不是符合要求
Dim Info As String
Info = FileSys.ReadAllText( "c:\mydata\idcard.txt", Encoding.Default) '读取生成的文本文件
msgbox(info)
info = info.Replace(vbcr,"") '将回车换行替换为换行
Dim zp As String
Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组
msgbox(pars.length)
Dim r As Row = Tables("xsjbxxb").AddNew
r("xsxm") = pars(0).Trim()
r("sfzhm") = pars(1).Trim()
r("xb") = pars(2).Trim()
r("mz") = pars(4).Trim()
r("birthday")=pars(4).Trim()
r("hjszd") = pars(5).Trim()
zp=r("sfzhm")
msgbox(zp)
FileSys.CopyFile("c:\mydata\idcard1.jpg", ProjectPath & "Attachments\" & zp & ".jpg",True) '照片复制到Attachments目录
r("IDcard1") =zp & ".jpg"
Dim Info1 As String
Info1 = FileSys.ReadAllText( "c:\mydata\银 行卡号.txt", Encoding.Default) '确定【银 行卡号.txt】中间是有空格的？
msgbox（Info1 ）
info1 = info1.Replace(vbcr,"") '将回车换行替换为换行
Dim pars1() As String = Info1.Split(vblf)
Dim dr As Row = Tables("xsjbxxb").current
dr("yhkh") = pars1(0).Trim()
加好友 
发短信
Post By：2020/5/9 9:21:00 [显示全部帖子]
