主题：[求助]索引超出数组界限

Dim Info As String
Info = FileSys.ReadAllText(ApplicationPath & "wz.txt", Encoding.Default) '读取生成的文本文件
info = info.Replace(vbcrlf,vblf) '将回车换行替换为换行
Dim pars() As String = Info.Split(vblf) '将读取的信息拆分为数组
Dim r As Row = Tables("客户表").AddNew
r("姓名") = pars(0).Trim()
r("性别") = pars(1).Trim()
r("民族") = pars(2).Trim()
r("出生日期") = pars(3).replace("年","-").Replace("月","-").Replace("日","")
r("地址") = pars(4)
r("身份证号码") = pars(5)
r("发证机关") = pars(6)
r("有效期") = pars(7).SubString(0,10).Replace(".","-")
r("有效期") = pars(7).SubString(11).Replace(",","-")
FileSys.CopyFile(ApplicationPath & "zp.bmp", ProjectPath & "\Attachments\" & r("身份证号码") & ".bmp",True) '照片复制到Attachments目录
r("身份证图片") = r("身份证号码") & ".bmp"

 

这个代码那里出错了？？在命令窗口执行会弹出索引超出数组界限

 应该是格式不对你加一个判断。你把你的wz.txt传上来看看。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:wz.txt

 看了一下，你的格式明显不是能这样获取的。你看看具体的使用说明，看怎样生成的txt是哪种格式的。

 

 你执行一下下面的代码，自己看怎么去调整字符吧。

 

Dim Info As String
Info = FileSys.ReadAllText("d:\test.txt", Encoding.unicode) '读取生成的文本文件
info = info.Replace("     ", chr(11)) '将回车换行替换为换行
Dim pars() As String = Info.Split(chr(11)) '将读取的信息拆分为数组
For Each par As String In pars
    output.show(par)
Next

用下面的代码截取到信息，然后自己看着办吧。

 

Dim Info As String
Info = FileSys.ReadAllText("d:\test.txt", Encoding.unicode) '读取生成的文本文件
Dim reg As new System.Text.RegularExpressions.Regex(".+? +")
Dim mc As object = reg.Matches(info)
For i As Integer = 0 To mc.count - 1
    output.show(mc(i).value)
Next

谢谢你，我等下回公司再练习下，难得有大神帮忙解决

 

现在信息能读取了，但是字符串也调整了，但是窗口这里的文本格式 出生日期字符串如何转换成2013-05-14的格式，
此主题相关图片如下：qq截图20140530000128.jpg

身份证号码读取日期 http://www.foxtable.com/help/topics/0320.htm