文本文件的读取GET，求助

Question

Open App.Path & "\setting.txt" For Binary Lock Read As #1
Get #1, , codeout
Close #1
我想读setting文件到我的变量codeout，可怎么读不出来阿，急死我了，没有语法错误阿，文件也对呀，可codeout里面就是没数据，大虾们帮帮

Answer 1

看看下面这段：
Private Sub WriteTextBox()
    
    Dim objFs As Object
    Dim objText As Object
    Dim strLine As String
    
    Set objFs = CreateObject("Scripting.FileSystemObject")
    Set objText = objFs.OpenTextFile("c:\network.txt", ForReading)
    Do While Not objText.AtEndOfStream
        If txtinfo.Text <> "" Then
            txtinfo.Text = txtinfo.Text & vbCrLf & objText.ReadLine
       End If
    Loop
  '  txtinfo.Text = objText.ReadAll
    objText.Close
    Set objText = Nothing
    Set objFs = Nothing
    
End Sub

Answer 2

codeout要定义成BYTE类型的数组,你试试改成这样:
dim codeout() as byte
Open App.Path & "\setting.txt" For Binary As #1
redim codeout(lof(1))
Get #1, , codeout
Close #1

Answer 3

Dim codeout() As Byte
        
    Open App.Path & "\setting.txt" For Binary Lock Read As #1
    ReDim codeout(LOF(1))
    Get #1, , codeout
    Close #1
    Text1.Text = StrConv(codeout, vbUnicode)

Answer 4

Open app.path & "text.txt" For Input As #1Dim t_String As String
t_String = Input(LOF(1), 1)Close #1建议使用INI格式文件来存放配置信息

Answer 5

谢谢各位大虾，sxs69谢谢，问题解决了，现在给分，能给我解释一下为什么要这么做吗？

Answer 6

结完贴后还能说话么？我选择的不用FAQ整理

Answer 7

dim codeout() as byte'定义一个BYTE动态数组,因为你要用BINARY方式来打来文本文件
Open App.Path & "\setting.txt" For Binary As #1
redim codeout(lof(1))'定义数组大小
Get #1, , codeout
Close #1
Text1.Text = StrConv(codeout, vbUnicode)'在WIN2K下,如果你的文本文件不是以UNICODE保存的,要转化,不然会乱码