1,216
社区成员
发帖
与我相关
我的任务
分享怎么可以是把txt文本中的内容被读取到text控件中？
我用以下过程对text控件内容进行保存，
Open 路径+文件名 For Append As #1
Write #1, text1.text
close #1
但是怎么可以是它的内容被读取到text控件中？
Open 路径+文件名 For Append As #1
Write #1, text1.text
close #1
但是怎么可以是它的内容被读取到text控件中？
...全文
请发表友善的回复…
发表回复
neo40 2003-08-23
- 打赏
- 举报
把put那句改成这句
因为ASC码都是16位的，如果是汉字就是i*4，自己判断一下就行，看Asc(cc)是否大于汉字的第一个字的ASC码（不好意思我不知道这个ASC码，所以没办法给你，自己查一下吧）
Put #1, i * 2, Asc(cc)
因为ASC码都是16位的，如果是汉字就是i*4，自己判断一下就行，看Asc(cc)是否大于汉字的第一个字的ASC码（不好意思我不知道这个ASC码，所以没办法给你，自己查一下吧）
Put #1, i * 2, Asc(cc)
neo40 2003-08-23
- 打赏
- 举报
对不起，误会了，下面是正确的
On Error Resume Next
Open fieldPath For Binary As #1
Dim bb,cc As String
bb = "aaaaaaaaaaaa"
For i = 1 To Len(bb)
cc = Mid(bb, i, 1)
Put #1, i, Asc(cc)
Next i
Close #1
On Error Resume Next
Open fieldPath For Binary As #1
Dim bb,cc As String
bb = "aaaaaaaaaaaa"
For i = 1 To Len(bb)
cc = Mid(bb, i, 1)
Put #1, i, Asc(cc)
Next i
Close #1
neo40 2003-08-23
- 打赏
- 举报
方法1
RichTextBox1.LoadFile App.Path + "\mytxt.txt", 1
Text1.Text = RichTextBox1.Text
RichTextBox1.LoadFile App.Path + "\mytxt.txt", 1
Text1.Text = RichTextBox1.Text
BrightFire 2003-08-23
- 打赏
- 举报
用RichTextBox的LoadFile方法
