ファイルの中身を書き換える

質問

ファイルを読み込み、文字列検索をして該当データがあったらその文字列を書き換えたいのです。ファイルを読んで別のファイルに書き出す方法はわかるのですが、そこだけを書き換えて、ほかはそのままにするにはどうすればいいかわかりません。どなたか教えてください。

回答No.3

BLUEPIXY · ベストアンサー

#2の補足について
＞書き込みできません。というエラーがでます
deleteFileする時に、ファイルが閉じられていないのが原因です。
Wendの後の行に
data.Close
data2.Close
を記入してファイルをクローズして下さい。
これで、ちゃんと動作するようになります。

ちなみに、
Data2.Write(Line)
Data2.Write chr(13) & chr(10)
は
Data2.Writeline(Line)
で同じ意味です。
テンポラリファイル名は
tempFileName = Fso.GetTempName
でファイル名が作れます。（実際にファイルが作られるのではないです、名前だけ）

回答No.2

BLUEPIXY

>同じファイルに上書きするにはどうしたらいいんでしょうか？
普通は、
テンポラリファイルを作って、
元のファイルから読み出し、
テンポラリファイルに書き出していき
作業が終了した時点で
元のファイルを削除し、
テンポラリファイルの名前を元のファイルにリネームします。

補足

すいません。どうもうまくいきません。書き込みできません。というエラーがでます。どこがいけないのでしょうか？おわかりになりますか？
<%

'Sub(A,B)
str=Request("A")
str2=Request("B")

Set Fso =CreateObject("Scripting.FileSystemObject")

Set Data =Fso.OpenTextFile(Server.Mappath("../xxxx/xxxx１.txt"),1)
Set Data2=Fso.OpenTextFile(Server.Mappath("../xxxx/xxxx２.txt"),2,true)

'データ分だけ
while(Not Data.AtEndOfStream)

'１行ずつ読む
Line=Data.readLine

'入力された文字が含まれてるかどうか検索
position=InStr(Line,str)

'あれば前半部分を格納
if NOT position=0 Then

'=を探して=までを前半部分として格納
equal=InStr(Line,"=")
First=Left(Line,equal)

'前半部分に入力された値を結合
Line=First&str2

end if

Data2.Write(Line)
Data2.Write chr(13) & chr(10)

Wend

'end sub

'ファイル削除
fso.DeleteFile Server.Mappath("../xxxx/xxxx１.txt")
Set f2=fso.GetFile(Server.Mappath("../xxxx/xxxx２.txt"))

'リネーム
f2.Name="xxxx.txt"

%>

回答No.1

BLUEPIXY

使用スクリプトはVBScriptだとして
Option Explicit
Dim str, regPattern, repStr, result

str="ハイパーリンクテキスト" '元の文字列
repStr="－" 'マッチした部分を置き換える文字列
Set regPattern = new RegExp
regPattern.Pattern="ー" '置き換えに該当する文字列のパターン
regPattern.Global = True
result = regPattern.Replace( str, repStr)
のように書きます。
サンプルだと
"ハイパーリンクテキスト"→"ハイパ－リンクテキスト"
になります。

補足

同じファイルに上書きするにはどうしたらいいんでしょうか？