VB一段代码修改

来源：百度知道 编辑：UC知道 时间：2024/06/07 16:28:33
Open IIf(Len(App.Path) > 3, App.Path & "\", App.Path) & "ip.dll" For Output As 1
Print #1, "" & Text2 & "";
Close
这段是在本目录生成一个ip.dll文件,然后在ip.dll里写入Text2的内容,现在我要在text1中,读取这个文件内容,而不是写入这个文件内容,怎么写

Private Sub Command1_Click()
Open IIf(Len(App.Path) > 3, App.Path & "\", App.Path) & "ip.dll" For Input As #1
Text1.Text = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
End Sub

读取又input把上面改一下就可以了

你的保存代码出了问题
Open IIf(Len(App.Path) > 3, App.Path & "\", App.Path) & "ip.dll" For Output As #1
Print #1, "" & Text2 & "";
Close # 1 ' 结束打开
这样才对
读取是这样
dim Temp$ ,Cntent$
Open IIf(Len(App.Path) > 3, App.Path & "\", App.Path) & "ip.dll" For Input As #1
Do Until EOF(1)
Input #1, Temp
Content = Content & Temp
Loop
Close #1