在VBScript中讀取txt文件中的特定文本

Question

我有一個包含5行的txt文件。 我想閱讀第一行和第五行，但是我不想閱讀第一個單詞，所以這是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

所以我想讀第一行，但我不想讀單詞標題：第五行同樣的事情，我不想讀標簽：

到目前為止，我的代碼僅讀取第一行和第五行。 第五行還用逗號分隔文本。 我不知道如何使第一行和第五行不讀特定的單詞。

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 = Replace（fline，“ big”，“”）

'這是fline的結果值：

msgbox fline'這是“我是一個男人”

'干杯！