VB 如何调用记事本程序打开和保存文本文件？
VB 如何调用记事本程序打开和保存文本文件？
希望大家能给个代码！
主要想解决utf8 和国标码转换总题？
[解决办法]
' T$ = Text
' '-- Get the formatted text (45 characters wide)
' Wrapped$ = WordWrap$(T$, 45)
' '-- Save the text to a file.
' ' On Error GoTo jk
' Open "内容 " For Output As 1
' Print #1, Wrapped$
' Close #1
[解决办法]
用下列所示之API函数可以调用记事本打开文本文件
ShellExecute(0, "open ", "C:\WINDOWS\SYSTEM32\notepad.exe ", "D:\A.txt ",NULL,SW_SHOWNORMAL);
[解决办法]
Open App.Path + "\table.txt " For Output As #1
Print #1, "cyc " '写入字符串“cyc”
Close #1
Yfdb = App.Path + "\ " + "aa " + ".txt " '读取名为table
Open Yfdb For Input As #1
Do While EOF(1) = False
Line Input #1, t
s1 = s1 + t & vbCrLf
Loop
Close #1
[解决办法]
在记事本的“文件”——“另存为”，就弹出“另存为”对话框，其中就有一向“编码”选择，可对几个码 转换保存的功能，如能用 api 实现对对“编码”的选择就可以了。
请各位高手，解答帮忙！
[解决办法]
用RichTextBox控件效率高很多
打开
CommonDialog1.FileName = " "
CommonDialog1.Filter = "文本文件(*.txt)|*.txt "
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> " " And CommonDialog1.FileName <> "*.txt " Then
Text1 = " "
RichTextBox1.LoadFile CommonDialog1.FileName
Text1 = RichTextBox1.Text
End If
保存
If CommonDialog1.FileName <> " " Then
Open CommonDialog1.FileName For Output As #1
Print #1, Text1
Close #1
Else
Menu_newsave_Click
End If
这个代码是将RichTextBox和TEXT都用了,只用TEXT的我也有,你要的话我可以将两个程序的源码给你,你把邮箱发上来
