お世話になっております。
VBSでテキスト（文字列）の一部を切り出したいのですが、Visual basicのやり方だとエラーが出てしまいます。
つまり、Mid関数を使ったらエラーが出て、対処がわかりません。
以下に具体的なものを示します。
インターネットホームページの中からテキストを取得して、そのテキストから一部分を切り出したいのです。
例えば切り出したテキストが「赤1、青2、黄3」だとします。色名+数字、色名+数字、色名+数字というテキストです。色名を指定して、その次の数字を切り出したいのです。最終的には切り出した数字をc:\textfile.txtに保存しようとしております。
Dim IE
dim price
Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.Navigate ("http://hoomupeeji")
While IE.busy: Wend
While IE.Document.readyState <> "complete": Wend
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\textfile.txt", True)
For Each r In IE.Document.All.tags("TABLE")(3).rows
For Each c In r.Cells
a.Write (Replace(c.innerText, vbCrLf, ","))
Next
Next
price = Mid(a, InStr(price, "赤") , 1)
a.Write (price)
a.Close
IE.quit
どうぞよろしくお願いいたします。
お礼
ありがとうございます。 >> price = Mid(a, InStr(price, "赤") , 1) > の「a」は、ファイルであって、文字列ではありません。 このaファイルの記述をaファイルのテキストと直せばよいのではないかと思いました。もしその方向で正しければ、どのようにすればよいのでしょうか。