How to Replace Strings in a Text File VB6

Question

i have a problem right now. Im using textfile as my database. Here is the format of my Strings inside the textfile.

01/Alarm1/01:00:00

01/Alarm2/02:00:00

01/Alarm3/03:00:00

For example i just want to rename the Alarm2 but it will keep the 01 on the beginning and the time on it. Thanks for help guys

Jeandey Boris · Accepted Answer · 2017-01-25 07:49:05Z

2

Please find an example on which you can rely on in order to:

read a text file
update its content
write it back

Hope this will help you.

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

answered Jan 25, 2017 at 7:49

Jeandey Boris

7534 silver badges9 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

CeciliA Over a year ago

sir can i ask what will i do on the line that has commented? just a sample on replacing of string. thanks

Martin Over a year ago

Check the documentation for the Replace function over here. msdn.microsoft.com/nl-nl/library/bt3szac5(v=vs.80).aspx

Jeandey Boris Over a year ago

Affirmative, something like that should work: TempS=Replace(TempS, "Alarm2", "AlarmChanged")

strobering Over a year ago

Thanks! I found it very useful. But I implemented it using: TempS = TS.ReadAll Final = Replace(TempS, "Alarm2", "Alarm") because it is much faster in large files

arif · Accepted Answer · 2017-01-26 05:51:46Z

0

open txt file;

loop begin

get the string(by rows) - lets consider it is 'someStr'
you can use NewStr = Replace(someStr,"Alarm","Warning")
write NewStr to a new file

loop end

close both files

answered Jan 26, 2017 at 5:51

arif

551 silver badge7 bronze badges

Collectives™ on Stack Overflow

How to Replace Strings in a Text File VB6

2 Answers 2

4 Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

4 Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related