若何用法式翻开文本文件

24小时前 (06:00:41)阅读1回复0
wsygfsj
wsygfsj
  • 管理员
  • 注册排名5
  • 经验值117360
  • 级别管理员
  • 主题23472
  • 回复0
楼主

type filename1 [AUTO][WRAP][TO PRINTER [PROMPT] TO FILE Filename2] [NUMBER]

假设只是想看看内容,就打:

type 文件地址\文件名.txt就成了。

如:

type d:\aaa.txt

用记事本翻开

用API函数能够做到,也能够用号令的形式(run函数)

详细代码我发到你邮箱了。

用Command.用你做的法式翻开文件时,你的法式里的Command就是阿谁文件的地址:

Private Sub Form_Load()

If Command "" Then

Text1 = Command

Text1 = Replace(Text1, """", "")'Command得到的地址是带双引号的,要把双引号往掉

Open Text1 For Input As #1

Text1 = StrConv(InputB$(LOF(1), 1), vbUnicode)

Close #1

End If

End Sub

0
回帖

若何用法式翻开文本文件 期待您的回复!

取消