各位老师好，我写了一个代码，需要读取文本文件的内容（16进制），转成10进制之后输出到新的文本文件，
第一个可以正常输出，循环到第二个就报错了，报错如下：
此主题相关图片如下：qq截图20170516192611.png
Dim lj As String = e.Form.Controls("TextBox1").Value '文本路径
Dim sc As String = e.Form.Controls("TextBox2").Value '输出路径
If lj IsNot Nothing Or sc IsNot Nothing Then
Dim s As String = FileSys.ReadAllText(lj)
Dim Values() As String
Values = s.Split(chr(13)) '以回车分割
For i As Integer = 0 To (Values.Length - 1)
Dim hex As String = HexToDec(Values(i))
FileSys.WriteAllText(sc,hex & Chr(13),True)
Next
Else
MessageBox.Show("请选择文件位置","提示")
End If
[此贴子已经被作者于2017/5/16 19:40:42编辑过]
加好友 
发短信
Post By：2017/5/16 19:31:00 [只看该作者]
