DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

relpacing blank spaces with comma

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Aug 2008

Posts: 63

Reputation: love_dude1984 is an unknown quantity at this point

Solved Threads: 2

love_dude1984 love_dude1984 is offline

Offline

Junior Poster in Training

relpacing blank spaces with comma

Apr 30th, 2009

hello frendz..

im working on a small application wher i need to copy the data from excel sheet and paste it to the text file.im trying to create a macro for tht.
the selected row should be in a specific format. like if ther r 3 colums then the text should be saved in text file with comma's like a,b,c.

uptil now, im able to save the file with the data which contains blank spaces. how can i remove those blank spaces and insert a comma ther i tried using the following code..but its not working..plz help me solve this prob??

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
 Open "C:\temp.txt" For Input As #1
 astring = Input$(LOF(1), 1)
Close #1
 
astring = Replace(astring, " ", ",")
MsgBox astring 'to check if values are correct
 
Open "C:\temp.txt" For Output As #1
Print #1, astring
Close #1
 Open "C:\temp.txt" For Input As #1
 astring = Input$(LOF(1), 1)
Close #1

astring = Replace(astring, " ", ",")
MsgBox astring 'to check if values are correct

Open "C:\temp.txt" For Output As #1
Print #1, astring
Close #1

thnx in advance

•

Join Date: Nov 2007

Posts: 141

Reputation: jonifen is an unknown quantity at this point

Solved Threads: 15

jonifen

Offline

Junior Poster

Re: relpacing blank spaces with comma

May 1st, 2009

You say you want to read from an Excel sheet to a text file, but your code shows you opening a text file for input. I don't know how you usually read from an Excel sheet, but I don't think you can open it like a text file as your code suggests...