有没有办法使用VB中的读取文件中的数据作为活动字符串变量？

Question

我试图让一个脚本读取文本文件中的文件数据作为字符串，然后可以被称为另一个变量。我一直在努力。

代码，将打开文件：

Option Explicit 
Dim fso, BC1 
Set fso = CreateObject("Scripting.FileSystemObject") 

Set BC1 = fso.OpenTextFile("C:\Users\GDoe\Desktop\BC1.txt",1) 
MsgBox BC1.ReadLine 
BC1.Close 

我需要采取1号线从这个文本文件中读取数据，并将其设置为字符串格式另一个变量（即：Dim Variable1 As String = BC1 data）。有任何想法吗？如果我可以从文件中以字符串的形式获取所需的数据，我的脚本的其余部分将按照它应该执行的方式执行。

Answer 1

要在文本文件中保存的所有文件数据strBC1变量（字符串变量）：

Option Explicit 
Dim fso, BC1, strBC1 
Set fso = CreateObject("Scripting.FileSystemObject") 

Set BC1 = fso.OpenTextFile("C:\Users\GDoe\Desktop\BC1.txt",1) 
strBC1 = BC1.ReadAll 
BC1.Close 

要通过线读取文本文件线和第一非空行保存到strLine变量（字符串变体）：

Option Explicit 
Dim fso, BC1, strLine 
Set fso = CreateObject("Scripting.FileSystemObject") 

Set BC1 = fso.OpenTextFile("C:\Users\GDoe\Desktop\BC1.txt",1) 
Do Until BC1.AtEndOfStream 
    strLine = BC1.Readline 
    If strLine <> "" Then 
    Exit Do     'stops looping and transfers control 
          ' to the statement immediately following the Loop 
    End If 
Loop 
BC1.Close