三个小问题关于文件操作

Question

我刚刚要用vb做个小项目,本人第一次接触vb,有三个小问题希望有人回答下:
1.怎样创建一个文件,网上好象有创建文本文件的方法,但我希望能随便创建一个文件
2.怎么样逐字符的读文件,比如"asd你",这样就是读a,s,d,你四个字符
3.怎样逐句的读字符,
真是麻烦希望有人能帮我解答下,谢谢了

Answer 1

问题1:
strfile="aa.txt"
strmx="你要写到文件的内容"
Open strFile For Output As #1
      Print #1, strMx  
Close #1问题2:
str1="1234"
a=mid(str,1,1)  '这样a=1
b=mid(str,1,2)  '这样b=2

Answer 2

问题3:
yefile="你的文件名"
Open yeFile For Input As #1
Do While Not EOF(1)
        '逐行读取
   Line Input #1, strYe   'strye就是文件每一行的内容
 
Loop Close #1

Answer 3

'1.怎样创建一个文件,网上好象有创建文本文件的方法,但我希望能随便创建一个文件
Private Sub Command1_Click()
Open "c:\my documents\mydata.txt" For Output As #1
Print #1, "asd你"
Print #1, "bte他"
Close #1
End Sub'2.怎么样逐字符的读文件,比如"asd你",这样就是读a,s,d,你四个字符
Private Sub Command2_Click()
Dim strData As String
Open "c:\my documents\mydata.txt" For Input As #1
Do Until EOF(1)
   strData = Input(1, 1)
   If Asc(strData) > &H20 Or Asc(strData) < 0 Then Debug.Print strData
Loop
Close #1
End Sub'3.怎样逐句的读字符,
Private Sub Command3_Click()
Dim strData As String
Open "c:\my documents\mydata.txt" For Input As #1
Do Until EOF(1)
   Line Input #1, strData
   Debug.Print strData
Loop
Close #1
End Sub

Answer 4

从已打开的顺序文件中读出一行并将它分配给 String变量。语法Line Input #filenumber, varnameLine Input # 语句的语法具有以下几个部分：filenumber 必要。任何有效的文件号。 
varname 必要。有效的 Variant 或 String 变量名。 
说明通常用 Print # 将 Line Input # 语句读出的数据从文件中写出来。Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13)) 或回车-换行符 (Chr(13) + Chr(10)) 为止。回车-换行符将被跳过，而不会被附加到字符串上。