Exporting Strings to a file without the Inverted Commas

I have created a program , really simple one to open a text file and to save strings to it

Dim strDataField,strDataField1,strDataField2,strDataFi eld3As String

Open "test\" + filename.Text + ".txt" For Output As #1 'location of the file.
Write #1, strDataField, 'The things you want to save"
Close 1

so the out of the file is like the following

"Halloo" , " Ashoor" , "Null ", and so on

so how i ant get rid of the inverted commas in the string since i have alot of strings inside the file

or is there away to convert the string or so

What exactly do you mean 'inverted' commas? Whenever you write to a sequential file using VB 6.0, it will be comma delimmited and all strings will have quotes (") around them. Numbers will not have quotes around them. Exactly what are you asking for so that we may be able to give you a more complete answer.

am sorry sicne i didnt put my question in the right manner

I have done a program which takes values of strings and write them to

a file. The file output is the followin below



"101363 ","NUD","RTA"

so my question is how to get red off the Two Quotes in the string

i know this is becuase VB6 functionality but is there a way to get red of them

regards and thanks for your help

Hi,

Instead of using the Write function, use the Print function on the file.



That should get rid of the quotes around the strings. Then some other things...

1. You use #1 in your file open statement. That is realy bad, since it might be possible that you opened up another file with #1 somewhere else in your code. Use the following to make sure you open a new file without a conflict:
   
   
   Code:

     Dim hFile as Long ' A variable that contains our file handle.
     hFile = FreeFile ' Get a free filenumber.
     Open "C:\Temp\Test.txt" for input as hFile ' open the file.

2. Please concatenate strings with the & (ampersand) sign, not the + (plus) sign. Using a plus sign can cause unpredictable results (in some cases it can do a sum on two strings that contain numbers).
3. Explicitly type all the variables. Dim strField, strName, strSomething as string will only dim the last one as a string. All the other ones are variants (they are evil most of the times).
4. Use error handling to close the file. Something along the lines of this:
   
   
   Code:

   Private Sub Test()
     Dim hFile as long
   ' -------------------
     On Error GoTo PROC_ERR
     
     ' Do you stuff.
   
   PROC_EXIT:
     If (hFile <> 0) then
   	Close hFile
     End If
   
   PROC_ERR:
     Select Case Err.Number
     Case Is <> 0
   	Msgbox "An error occured"
   	Err.Clear
   	Resume PROC_EXIT
     End Select
   End Sub

That should make your code a bit more stable and not prone to errors. Any questions, feel free to ask.

Grtz.©

M.