レス数が1スレッドの最大レス数(1000件)を超えています。残念ながら投稿することができません。

本スレURL保存所７

617：毒：2007/08/14(火) 23:10:28: 今後のこともありますので、使用したVBScriptを公開しておきます。
急造なので適当です（＾＾；
以下の内容をメモ帳に貼り付けて「test.vbs」で保存。
ファイル名のとこをちゃんとすれば動くはずです。

dim objFSO
dim fromFile
dim toFile
dim i
dim tmp

Set objFSO = WScript.CreateObject("Scripting.FileSYstemObject")
Set fromFile = objFSO.OpenTextFile("Z:\物質残.txt")
Set toFile = objFSO.OpenTextFile("Z:\物質A.TXT", 2, True)
i = 0
Do While fromFile.AtEndOfStream <> True
tmp = fromFile.ReadLine
If( Len( tmp ) > 0 ) Then
If( Not IsNumeric( Left( tmp, 1 ) ) ) Then
toFile.WriteLine( tmp )
End If
End If
Loop
fromFile.Close

掲示板管理者へ連絡無料レンタル掲示板