Question

我试图创建一个脚本，将文本文件中的文件数据作为字符串读取，然后可以将其作为另一个变量调用。我已经做了一段时间了。

将打开文件的代码：

__init__.py

我需要从该文本文件中读取1行数据，并将其设置为字符串格式的另一个变量（即：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）。有任何想法吗？如果我可以从文件中获取我想要的数据作为字符串，我的脚本的其余部分将按照它应该执行。

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

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

1 个答案: