CREATE txt with ";"

[sal21]

Code: Select all

...
STRINGA = ""
rsObject.Open strSQL, adoCon
    Do While Not rsObject.EOF
        For I = 0 To rsObject.Fields.Count - 1
            STRINGA = STRINGA & """;""" & Trim(rsObject(I))
        Next I
        Print #F2, STRINGA
        STRINGA = ""
        rsObject.MoveNext
    Loop
...

part of code...

during the creation of txt i see:

";"uuuuuuu":"........":"rrrrrrrrrr":"

i need

"uuuuuuu":"........":"rrrrrrrrrr"

perphs this resolve;

Do While Not rsObject.EOF
Print #F2, rsObject.GetString(, 1000, ";", vbCrLf, "");
rsObject.MoveNext
Loop

[HansV]

Print #F2, Mid(STRINGA, 4)

[sal21]

Print #F2, Mid(STRINGA, 4)

wow!!!!!!!!

but have see my getstring solution?

note:
Changed my original post

[HansV]

You changed your post while I composed my previous reply...
Have you tried GetString? Does it do what you want?