在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“，这是“我是一个男人”

'欢呼！