UC知道文本加密错误
来源：百度知道 编辑：UC知道 时间：2024/06/08 15:02:09
Private Sub Command1_Click()
Open Text1 For Input As #1
Line Input #1, yw
Close #1
xw = ""
n = Len(yw)
For i = 1 To n
yz = Mid(yw, i, 1)
xz = Chr(Asc(yz) + 10)
xw = xw & xz
Next
Open Text1 For Output As #1
Print #1, xw
Close #1
MsgBox "加密成功"
End Sub
为什么加密后的文件，只剩下一行？？详细点哦~！谢谢啦！呵呵
Open Text1 For Input As #1
Line Input #1, yw
Close #1
xw = ""
n = Len(yw)
For i = 1 To n
yz = Mid(yw, i, 1)
xz = Chr(Asc(yz) + 10)
xw = xw & xz
Next
Open Text1 For Output As #1
Print #1, xw
Close #1
MsgBox "加密成功"
End Sub
为什么加密后的文件，只剩下一行？？详细点哦~！谢谢啦！呵呵
Line Input #1, yw 你只读了文件的第一行
Open Text1 For Input As #1
yw=""
Do Until EOF(1)
Line Input #1, yy 'yy是一个string变量
yw=yw & yy & chr(13) '加个回车,(解密回来时,可能要多一个回车)
Loop
大概就是这个意思,你再细看一下
应该是换行符也加密了，也就是没有换行符了，所以只有一行