0

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 行目も、テキストをカンマで分割しています。特定の単語を読まないように 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
4

3 に答える 3

2
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.

于 2012-10-11T09:10:57.473 に答える
1

別のオプションは、最初のコロンで行を分割することです。

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
于 2012-10-11T19:54:25.717 に答える
0

'値の置換ツールを使用します。それは簡単です。たとえば、「私は大物です」という値の fline があるとします。

'次のコードを実行すると:

fline = Replace(fline, "big ", "")

'fline の結果値は次のとおりです。

msgbox fline 'これは「私は男です」

'乾杯!

于 2013-01-18T03:43:36.727 に答える