UC知道从VB转到VB.net的问题
来源：百度知道 编辑：UC知道 时间：2024/09/23 04:30:00
咱的同学叫咱把下面的代码 转成 VB.net的
有高手帮忙下吧！
FileName$ = InputBox("输入文件位置")
Open FileName$ For Input As #1
Line Input #1, yw$
Close #1
n = Len(yw$)
For i = 1 To n
yz$ = Mid$(yw$, i, 1)
xz$ = Chr(Asc(yz$) + 10)
xw$ = xw$ & xz$
Next
Open (FileName$) For Output As #1
Print #1, xw$
Close #1
MsgBox ("OK")
谢谢！万分感谢！
有高手帮忙下吧！
FileName$ = InputBox("输入文件位置")
Open FileName$ For Input As #1
Line Input #1, yw$
Close #1
n = Len(yw$)
For i = 1 To n
yz$ = Mid$(yw$, i, 1)
xz$ = Chr(Asc(yz$) + 10)
xw$ = xw$ & xz$
Next
Open (FileName$) For Output As #1
Print #1, xw$
Close #1
MsgBox ("OK")
谢谢！万分感谢！
那个号回答的问题怎么总是显示不出来？
换朋友的号给你回答。
Dim FileName As String = InputBox("输入文件位置")
Dim yw As String = Nothing
yw = My.Computer.FileSystem.ReadAllText(FileName)
Dim n As Long = Len(yw)
Dim yz As String = Nothing
Dim xz As String = Nothing
Dim xw As String = Nothing
For i = 1 To n
yz = Mid(yw, i, 1)
xz = Chr(Asc(yz) + 10)
xw &= xz
Next
My.Computer.FileSystem.WriteAllText(FileName, xw, True)
MsgBox("OK")
代码倒数第二行的最后一个Boolean变量是设置文件输出是否为追加模式的，根据你自己的需要做修改吧。因为我已经不记得VB里的默认输出是追加还是覆盖了。
希望能够满意~
用visualS的升级向导基本能够搞定这个问题