7,789
社区成员
发帖
与我相关
我的任务
分享在线！等各位大哥帮忙 关于vc---->vb转换的问题
vc:
cstring sourcefilename
sourcefilename="c:\abc.txt"
FILE *FP
FP=FOPEN（（char*）sourcefilename.operator LPCTSTR(),"r+t"）
这段程序怎么转成vb vb应如何中以“读写”打开文件 小弟先谢谢大哥了
cstring sourcefilename
sourcefilename="c:\abc.txt"
FILE *FP
FP=FOPEN（（char*）sourcefilename.operator LPCTSTR(),"r+t"）
这段程序怎么转成vb vb应如何中以“读写”打开文件 小弟先谢谢大哥了
...全文
请发表友善的回复…
发表回复
道素 2003-09-01
- 打赏
- 举报
Private Sub Command1_Click()
Dim FileNumber As Integer
Dim FileName As String
Dim strLine As String
FileNumber = FreeFile'获得一个空闲的文件通道号
FileName = "c:\abc.txt"
Open FileName For Input As #FileNumber‘打开文件，方式有集中，参考msdn
Line Input #FileName, strLine’读一行
Close #FileName’关闭文件
End Sub
Dim FileNumber As Integer
Dim FileName As String
Dim strLine As String
FileNumber = FreeFile'获得一个空闲的文件通道号
FileName = "c:\abc.txt"
Open FileName For Input As #FileNumber‘打开文件，方式有集中，参考msdn
Line Input #FileName, strLine’读一行
Close #FileName’关闭文件
End Sub
