ファイル書き込みをするには？ (ID:122571)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 はじめまして、丹羽と申します。 あるテキストファイルへの書き込み処理でエラーが表示されてしまいます。 どこに問題があるのかアドバイスをお願い致します。 既存のテキストファイル：C:\test.txt ----- テキストファイルの中身 ----- ＜略＞ AAA=10000 BBB=20000 CCC=30000 ＜略＞ ここで、「BBB=20000」をFileSystemObject、TextStremオブジェクトを 使用しVBで取得することが出来ました。 VBでは、取得した「BBB=20000」を「XXX=90000」に変更する処理を行い、 以下のような処理でファイルに書き込もうとしています。 Dim obj_FileSys As New FileSystemObject Dim obj_TextStm As TextStream Dim i As Long Set obj_FileSys = CreateObject("Scripting.FileSystemObject") Set obj_TextStm = obj_FileSys.OpenTextFile("C:\test.txt") 'glb_lLinePosは、読み込み時に取得した該当行数 For i = 1 To glb_lLinePos '書き込む行数までラインスキップ obj_TextStm.SkipLine Next '読み込んだ位置に新しい文字列を書き込んでる・・・ハズですが 'ここで、「ファイルモードが不正です」というエラーが発生。 obj_TextStm.WriteLine (s) 'オブジェクトのクローズ・解放処理 obj_TextStm.Close Set obj_TextStm = Nothing ※Set obj_TextStm = obj_FileSys.OpenTextFile（"C:\test.txt",ForWritin) と第２パラメータに「ForWritin」を指定すると、obj_TextStm.SkipLineで エラー表示されます。 一度、全部ファイルを読み込んで処理を行なった方がよいかと思ったのですが テキストファイルのサイズが50Kから150Kと物によってバラバラですので 出来れば、部分的な読み込み、部分的な書き込みを行なおうと試みてます。 環境は WindowsXP、VB6.0 SP5 です。 よろしくお願い致します。