text - 在 VBScript 中读取 txt 文件中的特定文本

Question

我有一个包含 5 行的 txt 文件。我想阅读第 1 行和第 5 行，但我不想阅读第一个单词，所以这里有一个 txt 文件包含的示例：

Title:        [Abo Manten] Kyuusho seme maniacs vol. 3 (Weak Spot Maniacs vol.3)
Upload Time:  2012-08-29 15:20
Uploaded By:  Hairs Fan
Downloaded:   2012-09-17 12:11
Tags:         swimsuit, abo manten, femdom, cbt, footjob

所以我想读第一行但我不想读这个词标题：同样的事情发生在第 5 行我不想读这个词标签：

到目前为止，我的代码只读取了第一行和第五行。第 5 行也用逗号分隔文本。我不知道如何使第 1 行和第 5 行不阅读特定的单词。

Set f = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\PATH\TO\your.txt", 1)
line1 = f.ReadLine
f.SkipLine
f.SkipLine
f.SkipLine
line5 = Split(f.ReadLine, ",")
f.Close

Answer 1

Set f = CreateObject("Scripting.FileSystemObject").OpenTextFile("test.txt", 1)
line1 = replace(f.ReadLine,"Title:","")
f.SkipLine
f.SkipLine
f.SkipLine
line5 = Split(replace(f.ReadLine,"Tags:",""), ",")
f.Close

这将替换特定行的标题和标签。

干杯! 阿米特 C.

Answer 2

另一种选择是在第一个冒号处拆分行：

Set f = CreateObject("Scripting.FileSystemObject").OpenTextFile("test.txt", 1)
line1 = Trim(Split(f.ReadLine, ":", 2)(1))
f.SkipLine
f.SkipLine
f.SkipLine
line5 = Split(Trim(Split(f.ReadLine, ":", 2)(1)), ", ")
f.Close

Answer 3

'使用替换值工具。这简单。假设你有一个价值线，它=“我是个大人物”。

'如果你运行以下代码：

线=替换（线，“大”，“”）

'这是fline的结果值：

msgbox fline '这是“我是男人”

'干杯！