search,read,write & replace in a textfile

Hi,
i want create a app that can search,read,write and replace the text in textfile. for search and read i have created them. assume that textfile contain

line1
line2
line3

i want to append a text below line2 so the textfile will be like this

line1
line2
somethingelse
line3

can someone help me?
thanks in advance

Try this:
Dim NewText As String
NewText = "New Text" & vbCrLf
Text1.Text = Left$(Text1.Text, Text1.SelStart) & NewText & Mid$(Text1.Text, Text1.SelStart + 1)
Wayne

Hi Wayne,
thanks for your reply. but that's still not resolve my problem. all i want is to insert a text in a textfile not in a textbox but thanks for your effort

Sorry about that. I didn't read your post right.
If I get what you want to do is put text in a file that is on the disk.
The only way to do that is create a second file. Read data in and put in second file until you reach your insertion point. Write out the new text to the second file and then continue reading in data from first file and writing to second. Delete the first file and rename the second file to the name of the first file.
This what you need?
Wayne

Hi csuryas,
the best way to handle files is to use the FileSystemObject. You have to add a reference to Microsoft Scripting Runtime from Project References and then use it like this:

for read:

Code:

---

Dim objFSO as FileSystemObject
Dim objText as TextStream
Dim sText as String

Set objFSO = new FileSystemObject
Set objText = objFSO.OpenTextFile(file, ForReading)
sText = objText.ReadAll

---

for objText u can use ReadAll for reading all text from the file or you can use a loop and ReadLine to read the file line by line

for writing in a file u can use the same code only this line is changed:

Code:

---

Set objText = objFSO.OpenTextFile(file, ForWriting)

---

and then use objText.Write sText

Hope it helps!

Hi WayneS & vma,
thanks for your reply.
WayneS: i think thats what i need but is there any way to do that without create a new file?
vma: where is the best? using scripting object or use your way? or may be use an open filename for reading as #1?
Thanks for your effort guys :)

Here is the fastest way I have found to do what you want:

Code:

---

Dim A$, S$()
'pull content in all at once. care should be taken
'to ensure not to try to read in too large a file
'note that Binary will create the file if it does not exist
Open "C:\test.txt" For Binary Access Read As #1
  A = Space$(LOF(1))
  Get #1, , A
Close #1

'split contents to an array
S = Split(A, vbCrLf)

'edit contents here
'you can use the Filter() function to filter out certain strings very quickly
'for example to remove any line containing "hello", you can use
'S = Filter(S, "hello", 0, 1)

'join the array to a single string
A = Join(S, vbCrLf)
'you can also open for Binary Access Write and use Put #1, , A, but this method
'does not resize the file if the string is shorter, so you need to use Kill to delete
'the original beforehand, or write to a new file. The use of ";" after the string
'prevents a vbCrLf at the end of the file.
Open "C:\test.txt" For Output As #1
  Print #1, A;
Close #1

---

This post may also be of interest to you:
http://www.codeguru.com/forum/showth...537#post975537

WizBang,

thanks for your reply. actually your suggestion is work for me but there is something strange with my textfile. everytime i save the textfile there is a tab for the first line. i don't know what's wrong with my coding
i attach the coding can you help me solve my problem?
thanks before

best regards

In this line of code take out one of the commas in your print statement. You have

Code:

---

Open App.Path & "\Test.txt" For Output As #1
    Print #1, , A
Close #1

---

should be

Code:

---

Open App.Path & "\Test.txt" For Output As #1
    Print #1, A
Close #1

---

Wayne

Hi Wayne,
thanks for your reply. it's work good now. but why the result textfile at the end contain 2 crlf? is there any wrong with my coding?
btw i still confuse between print #1, , A and print #1, A :)

It is a function of the print statement. Whether you are printing to a file or to a form each time you use a <,> in the statement a tab is sent out. However when printing to a file you need one <,> after file number.
ie

Code:

---

print #1,"abc"    =      abc
print #1,,"abc"                =                abc
print #1,,,"abc"              =                        abc

---

If you were saving two variables on one line:

Code:

---

print #1,"abc","def"        =      abc        def

---

You can also use a <;> which puts variables side by side with no space

Code:

---

print #1, "abc";"def"          =        abcdef

---

Hope this clears it up some,
Wayne

Note: The code lined up better in the message box than here.

Hi Wayne,
thanks for the explanation. uhm one more question why at the end of textfile the program add 1 more vbcrlf? i give the snippets maybe you can help me with these problem
thanks alot for your reply

Code:

---


For i = 0 To UBound(S)
        If S(i) = "[branch]" Then
                k = i
                Do Until S(k) = ""
                        k = k + 1
                Loop
        End If
Next
ReDim T(UBound(S) + 1)
For j = 0 To k - 1
        T(j) = S(j)
Next
T(j) = cboBranchName.Text + cboBranchCode.Text
For j = k To UBound(S)
        T(j + 1) = S(j)
Next
A = Join(T, vbCrLf)
Open App.Path + "\Test.txt" For Output As #1
        Print #1, A;
Close #1

---

lIt's only a guess but the Join is adding a crlf to the end of your string and a crlf is added when saving the file. After your join statement try this.

A=left$(A,Len(A)-2)

that takes out the last crlf. Even though you are printing A with a ; the close statement is more than likely adding a crlf.

Wayne

Hi Wayne,
Thanks alot. it's work :) but i use only len(a)-1 because i want add 1 crlf at the end of file :) thanks alot wayne

crlf is a 2 character set 13 and 10. using len(a)-1 only takes out the line feed but leaves in the carrage return. So use len(a)-2 to remove both the carrage return and the line feed. When you write the file use Print a without the ; and you will get your crlf. I feel that even with the ; the close #1 writes a crlf automaticlly.
Wayne

if you add ; the event the close #1 doesn't add crlf but if not add ; it will add crlf. i have tried it. and wayne i forgot to mention when the form is unloaded there is a replacement with the text on the textfile and i have known that i forgot the ; at the end of print command. sorry about that. and the case is close :D thanks alot for your help and thanks too for wizbang
:wave:

The Join() function does not add anything to the end of the string, so if you get an extra CrLf, then your array has an empty string for the last element. This can happen if the original file has an extra CrLf. There are a few ways to fix this depending on the data in your file, and it's probably a good idea to handle it anyway so that the file doesn't grow over time with empty lines. One easy way is to loop backwards through the string before you split it, and clip off any extra CrLf's which might be there.

Also, I noticed on your last post showing how you are adding to the array, that you are making a second array and copying all the contents from the first, inserting the new line. This is not necessary if you use Redim Preserve on the original array, and just copy the elements from the insertion point up one element (as in S(j + 1) = S(j)).

wizbang,
thanks alot. i forgot the preserve keyword so i used 2 array :o now my program is a bit shorter :) the print function without using ; followed by close function is add a vbcrlf at the end of file
thanks for your explanation and your help