（VBScript）读取文本文件并使用字符串值搜索目录

Question

我从外部软件程序中获得了一堆目录。根据外部程序中的循环次数，名称始终从1开始。现在，假设我有一个文本文件（Test.txt），其中包含一个我计算过的随机数。我的目标是根据此字符串值更改为已存在的目录，然后为此文件夹中的csv文件绘制散点图。我编写了以下vbs脚本来自动执行此操作，但excel无法找到该文件。这里的问题是Result.csv中的父文件夹。如何设置字符串值（MyVar）以便它可以用作路径？谢谢。

StrFileName = "C:\Users\tanzil\Desktop\Test\Test.txt"

Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFso.OpenTextFile(StrFileName)
MyVar = ObjFile.ReadAll

Set ObjFso = Nothing
WScript.Echo MyVar
ObjFile.AddFromString MyVar
ObjFile.Close

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.DisplayAlerts = False

Source1 = "C:\Users\tanzil\Desktop\Test\"
Set objWorkbook = objExcel.Workbooks.Open(Source1 & MyVar &"\Result.csv") ' =====> Issue here
Set xlmodule = objWorkbook.VBProject.VBComponents.Add(1)

strCode = _
..........................
..........................
xlmodule.CodeModule.AddFromString strCode
objExcel.Run "Evac_Curve"
Set xlmodule = Nothing
objExcel.Quit

Answer 1

作为

MyVar = ObjFile.ReadAll

从ObjFile读取所有内容，我怀疑MyVar有一个尾随的EOL标记。使用

MyVar = ObjFile.ReadLine()

代替。