txt charset

[abonem]

Merhabalar, makro ile bir txt dosyasına verilerimizi yazdık diyelim, ancak bu yazımdan sonra .txt dosyası ansi kodlaması ile kodluyor ben makro ile bunu nasıl utf-8 e çevirebilirim ?

 

[abonem]

yokmu bilen :S

 

[Kemal Demir]

Merhaba,

Sub Çevirme()
 Dim bString() As Byte
    Dim strSource As String
    Dim i         As Integer

    strSource = "http://www.excel.web.tr"          '
    bString() = strSource      ' bString contains   

    For i = LBound(bString) To UBound(bString)
        bString(i) = bString(i) + 1
    Next i
    strSource = bString()      ' 

   MsgBox strSource       ' 
End Sub

Belki size yardımcı olur.

 

[abonem]

peki ' , " karakterlerini makroda nasıl kullanıcaz,

mesela textbox2.text = " ?

bu karakteri texbotx2 ye göndermenin yolu varmı, yoksa makro bu tür işlemlere izin vermiyor mu?

 

[abonem]

Rakkas bey o kod dosya yı ansci den uft8 e çevirmiyor ama :S
yani denedim farklı şeyler çıktı teşekkürler yinede

 

[abonem]

CreateTextFile("deneme.txt", True, 8)

ile olayı çözdüm
teşekkürler
ancak halen o tırnak işareti kafamda soru :S