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

Question

我有一個包含5行的txt文件。我想讀的第一線和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日線我不想讀單詞標籤：

到目前爲止，我的代碼只是讀取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 

這將取代標題從perticular線&標籤。

乾杯！ 阿米特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 =替換（fline， 「大」， 「」）

' 這裏是fline的結果值：

MSGBOX fline「，這是「我是一個男人」

'歡呼！