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

所以我想阅读第1行，但我不想阅读标题：同样的事情第5行我不想读标签：

到目前为止，我的代码只读取第1行和第5行。第5行也用逗号分隔文本。我不知道怎么做1st＆amp;第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

这将取代Title和;来自特定Line的标签。

干杯！阿米特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，“big”，“”）

'这是fline的结果值：

msgbox fline'是“我是男人”

“干杯！

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

3 个答案: