Makroda boşluk sorunu

[unbqlqnced]

Merhaba arkadaşlar,

Benim sorunum makrodan aldığım text dosyası ile ilgili
Kodlarım bunlar;

Sub Düğme6_Tıklat()

ILKAYARLAR

End Sub

Private Sub ILKAYARLAR()
dosya_adi = ActiveWorkbook.Path & "\kesit.scr"
Open dosya_adi For Output As #1
Print #1, "line"
Print #1, Cells(18, 2).Value; ","; Cells(17, 2).Value
Print #1, Cells(16, 2).Value; ","; Cells(15, 2).Value
Print #1, Cells(16, 2).Value; ","; Cells(15, 2).Value
Print #1, "c"
Print #1, "line"
Print #1, Cells(18, 3); ","; Cells(17, 3)
Print #1, Cells(16, 3); ","; Cells(15, 3)
Print #1, Cells(16, 3); ","; Cells(15, 3)
Close #1
MsgBox ("ÇİZİMİNİZ OLUŞTURULDU KESİT.scr ADLI DOSYADAN AÇABİLİRSİNİZ")
End Sub
Çıkan scr dosyasındaki sonucum;

line
0 , 0
0 , 15,2
0 , 15,2
c
line
20 , 0
20 , 18,5
20 , 18,5
Bu şekilde her elemandan önce ve sonra boşluk bırakıyor. Bu şekilde benim tekrardan text içinde buna müdahale etmem gerekiyor.
line
0,0
0,15.2
0,15.2
c
line
20,0
20,18.5
20,18.5
benim istediğim ise bu şekilde olması bunu nasıl yapabilirim.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki gibi düzenleyerek dener misiniz?
.

Print #1, Cells(18, 2).Value [B][COLOR="Red"]&[/COLOR][/B] "," [B][COLOR="Red"]& Replace([/COLOR][/B]Cells(17, 2).Value[B][COLOR="Red"], ",", ".")[/COLOR][/B]

 

[unbqlqnced]

Teşekkür ederim düzeldik::

 

[Ömer BARAN]

Teşekkür ederim düzeldik::

Kolay gelsin.
.