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

我有一个包含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

所以我想读第一行，但我不想读单词标题：第五行也是一样，我不想读单词标签：

到目前为止，我的代码只读取第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

这将替换垂直线的标题和标记

干杯！ 阿米特C

这将替换垂直线的标题和标记

干杯！

---

Amit C.

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

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

---

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

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

---

'使用替换值工具。这很容易。假设你有一个价值观，即“我是一个大男人”

'如果运行以下代码：

弗林=替换（弗林，“大”、“”）

'以下是fline的结果值：

msgbox fline“我是个男人”

---

“干杯

使用替换值工具。这很容易。假设你有一个价值观，即“我是一个大男人”

'如果运行以下代码：

弗林=替换（弗林，“大”、“”）

'以下是fline的结果值：

msgbox fline“我是个男人”

“干杯