求解:关于读写文件的例子

Question

小弟很菜.请教如何在指定目录下写文件
是这样的: 我在text1.text里填写东西(例如我填写"你好啊")这个时候点击command1
它会把text1的内容写进指定目录下的文件内.如果没有这个文件的话,他会生成一个.....读取的时候我想让他读取第3行内容怎么做啊???
谢谢!

Answer 1

把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

Answer 2

mailto [email protected] 给你个例子

Answer 3

mailto [email protected] 给你个例子

Answer 4

将text1中的内容写入c:\test.txt
Private Sub Command1_Click()    Dim SaveBytes() As Byte
    SaveBytes = StrConv(Text1.Text, vbFromUnicode)
    
    Open "c:\test.txt" For Binary As #1
    Put #1, , SaveBytes
    Close #1End Sub

Answer 5

如何实现读取text里第4行内容呢？？？
例如这样：
Private Sub form_load()
     text1.text = "??????????"       
End Sub    " ??????? " 不知道如何填写什么。
或者应该填写什么呢？
谢谢了。小弟巨菜~~~~

Answer 6

不是的...小弟刚刚开始学VB
但是现在不在家,很多事情都不方便的.
书不在身边...MSDN也没有.只有一个VB....Sorry...
实在没有办法了...一时半会儿没法回去....
恳请好心的朋友多多帮忙....

Answer 7

做回好人吧Dim line4 As String
Dim tString As String
Dim fn As Long
Dim splitArr() As String
Dim sFlag As String
sFlag = Chr(13) & Chr(10)fn = FreeFile
Open "c:\test.txt" For Binary As fn
    tString = StrConv(InputB(LOF(fn), fn))
    splitArr = Split(tString, sFlag)
    If UBound(splitArr) >= 3 Then
        line4 = splitArr(3)
    Else
        MsgBox "没有第四行"
    End If
Close fntext1.Text = line4

Answer 8

把TEXT中的输入的内容写到文件中
 例子如下：
      Dim strPath    As String
     Dim lngTmp     As Long
  
     lngTmp = FreeFile()
     strPath = App.Path & "\aa.txt"
  
     Open strPath For Binary Access Write As #lngTmp
     Put #lngTmp, , Text1.Text
     Close #lngTmp

Answer 9

向文件读出第三条以后的数据的方法如下：
  Dim strPath    As String
  Dim lngTmp     As Long
  Dim intI       As Integer
  Dim intLong    As Integer
  Dim strFile    As String
  Dim aa()       As String
  
  lngTmp = FreeFile()
  strPath = App.Path & "\aa.txt"
  
  Open strPath For Binary Access Read As #lngTmp
   strFile = CStr(Input(LOF(lngTmp), lngTmp))
  Close #lngTmp
   aa = Split(strFile, Chr(13) & Chr(10))
   strFile = ""
   If UBound(aa) > 3 Then
        intLong = UBound(aa) - 1
        For intI = 2 To intLong
            strFile = strFile & aa(intI)
        Next intI
        Text1.Text = strFile
   Else
      MsgBox "该文件的行数没超过3!", vbInformation + vbOKOnly, "系统提示"
   
   End If

Answer 10

不对啊,程序运行后会把aa.txt以下的所有行数全部都显示在text1.text中啊
怎么做到只读取其中一行呢?(例如第4行)

Answer 11

我上面写的代码的作用就是读取第四行如何写在第四行?
将整个文件读出来,读到一个sting里,查找 chr(13) & chr(10) ,
在第三个的后面加入你想要插入的字符串
然后再将这个string 保存到文件其实读哪行,写哪行,都很简单,关键是你必须了解基本的文件操作
不然即使别人告诉了你,你也不知怎么回事
所以才让你看书,先把基础打好

Answer 12

现在做好了
但是有个不是BUG的BUG.....
当点击"保存"按钮(command1)时....他可以把text1的内容保存进C:\test.txt    这里假设我保存的内容是:0123456789  (10个字符)
而后我又保存了文字: "你好啊"
这个时候点击读取的时候text的内容是这样的:你好啊6789  (10个字符)
小弟想在里面加上一段"清空test.test文件内容"的代码,请教如何实现.....
还有就是,加入什么代码可以把test.txt文件属性设置为隐藏.....
要是删除该文件应该怎么做.....
小弟知道这个帖子的分数很少....目前小弟已经发贴发到身无分文了...有了分,大家一齐散...谢谢了...

Answer 13

不好意思,习惯了...
清空test.test打错了....应该为:清空test.txt

Answer 14

需要知道chr(13) & chr(10)是什么意思,这是换行
所以如果你在"你好啊"与"6789"之间加上 chr(13) & chr(10)
那么就可以出现
"
你好啊
6789
"隐藏: SetAttr  "c:\test.txt" ,vbHidden
删除文件: kill "c:\test.txt"清空:删除后,生成一个新的文件,当然这个文件肯定是空的