Hello!

I am using this function:

Public Sub ReplaceChar2(ByVal File As String, CharToReplace As String, ReplaceWith As String)

    'If Len(CharToReplace) <> 1 Or Len(ReplaceWith) <> 1 Then Err.Raise -1, , "Invalid argument"
    Dim n As Integer, b As Byte, l As Long, i As Long
    Dim repl As Byte, replwith As Byte
    repl = AscW(CharToReplace)
    replwith = AscW(ReplaceWith)
    n = FreeFile
   ' fTextWidth (File)
    l = FileLen(File)

    Open File For Binary As n

     For i = 1 To l

        Get n, , b

        If b = repl Then Put n, i, replwith 'write the replacement character

        Next

    Close n


End Sub


to replace all instances of the character ^ with *. However, i need to modify this script so that it will replace all instances of ~ with ~ + vbcrlf.

Can anyone help me with this? the problem is that this script is only working for single character replacement. I need to replace a single character with two characters.

Any help is appreciated!!! Thanks!

hi there.. this function receive strings, so what happend is you pass the 2 chars you need to the function??
put will not save the 2 char???
can you just get the len of the string and build an array of chars to save?? (just an easy version of this)...

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

If I understand right, you are running into difficulty because the original replaces a location the same size as what was read (1 character), but what you need to do puts more characters than what was read.

I suggest you open 2 files, one to read from, and one to hold the result. As you read the input file, either put what was read into the output file, or put your replacement.

You do have a problem with scaleability. Perhaps you should pass a 2 dimension array to the function, with dimension 0 being the searched–for char, and dimension 1 being the replacement. For each character read from the file, test it against all the dimension 0's. If a match is found, output dimension 1 (which if it were "" would effectively delete the character found). If no matches are found, send the read char to the output.

When you are done, delete the input file and rename the output file as what the input file had been (File$).

With this process, if you need to do a third type of replacement later (or only need to do 1, instead of 2), you don't need to re-write your function; all you would need to do is add (or remove) an entry to the array.

Seems this would be easier with the Scripting Runtime library’s FileSystemObject...

Does that work for you?