2017-01-25 12 views
1

現在、問題があります。私のデータベースとしてテキストファイルを使用しています。ここでは、テキストファイル内の私の文字列のフォーマットです。文字列をテキストファイルに置き換える方法VB6

01 /アラーム1/01:00:00

01 /アラーム2/02:00:00

01 /アラーム3/03:00:00

たとえば、私はちょうど名前を変更したいですAlarm2を使用しますが、開始時と終了時に01を保持します。

  1. が戻っ
  2. アップデートの内容
  3. 書き込み、それは

テキストファイルを読み取る:ヘルプみんなのおかげでは

答えて

1

あなたがするために頼ることができるれている例を見つけてください。これがあなたを助けることを願っています。

Dim FSO As FileSystemObject 
Dim TS As TextStream 
Dim TempS As String 
Dim Final As String 
Set FSO = New FileSystemObject 
Set TS = FSO.OpenTextFile("mydata.txt", ForReading) 
Do Until TS.AtEndOfStream 
    TempS = TS.ReadLine 
    'if TempS contains Alarm2 => rename Alarm 
    Final = Final & TempS & vbCrLf 
Loop 
TS.Close 

Set TS = FSO.OpenTextFile("mydata.txt", ForWriting, True) 
    TS.Write Final 
TS.Close 
Set TS = Nothing 
Set FSO = Nothing 
+0

私はコメントしている行で何をするのですか?文字列の置換えのサンプル。ありがとう – CeciliA

+0

ここで 'Replace'関数のドキュメントをチェックしてください。 https://msdn.microsoft.com/nl-nl/library/bt3szac5(v=vs.80).aspx – Martin

+0

肯定的なもの、それはうまくいくはずです: 'TempS = Replace(TempS、" Alarm2 "、" AlarmChanged ") ' –

0
  • オープンtxtファイル。

ループが

  • は、(行で)文字列を取得開始 - それはあなたがNewStrによってすでに=置き換え(someStr、 "アラーム"、 "警告")
  • を使用することができます 'someStr'
  • で考えることができます
  • 書き込みNewStrによってすでに

新しいファイルにループエンド

両方のファイルを閉じます

関連する問題