ASCII ye çevirme

[xnanx]

Merhabalar,

TR740001000734497499115009 bu şekilde bir metin var bunu ascii ye çevirdiğim de karışılığı 0x1A5452373430303031303030373334343937343939313135303039 bu oluyor.

Bunu programda yapıyorum, yüzlerce ,ibanı ascii ye çevirmem gerekiyor excel bunu yapabilme durumum olabilir mi?

 

[Erdem Akdemir]

T harfinin ascii kodu 84 değil mi?

 

[askm]

Sub ASKM_Asci()
Dim Yeni_Kelime As String
Dim kelime As String
Dim i As Integer
kelime = Range("a1").Value
For i = 1 To Len(kelime)
    Yeni_Kelime = Yeni_Kelime & Asc(Mid(kelime, i, 1))
Next i
Range("B1") = Yeni_Kelime
MsgBox kelime & " si ASC koda çevrilmiştir...", vbInformation, "ASKM"
End Sub

 

[askm]

Range("B1") =Yeni_Kelime kısmını aşağıdaki şekilde değiştirin. Sayı olarak algıladığı için başına tek tırnak ekleyin.
Range("B1") = "'" & Yeni_Kelime

 

[Erdem Akdemir]

Sizin göndermiş olduğunuz kod hexadecimal 'e karşılık geliyor.
0x1A sanırım standart olarak en başta olması gerekiyor.

 

[xnanx]

Bu arada hexadecimal miş yanlış bilgi vermşim.
hexadecimal çevirecek kod var mıdır acaba?

 

[Erdem Akdemir]

Sayın askm'nin kodunu tagdaki gibi kullanabilirsiniz.

Sub ASKM_Asci()
Dim Yeni_Kelime As String
Dim kelime As String
Dim i As Integer
kelime = Range("a1").Value
For i = 1 To Len(kelime)
    Yeni_Kelime = Yeni_Kelime & WorksheetFunction.Dec2Hex(Asc(Mid(kelime, i, 1)))
Next i
Range("a2") = "0x1A" & Yeni_Kelime
MsgBox kelime & " si ASC koda çevrilmiştir...", vbInformation, "ASKM"
End Sub

 

[askm]

http://www.hesapmakinesi.biz/ceviri/ikilik-onluk-sekizlik-onaltilik-sayi-sistemleri-cevirici/
sitesi üzerinden 740001000734497499115009 kısmını çevirme yaptığım zaman 9cb388dda2b0b8000000 çıkıyor. yani verdiğiniz. sayı ile alakalı çıkmıyor. kod kısmında da ASC yazan kod kısmını Dec2Hex yaparsanız. decimal sayıyı hex yapması gerek. O şekilde de sonuç çıkmıyor.

 

[askm]

Sayın Kuvari ben decimal sayıyı hex çevirmeye çalışıyordum. Desteğiniz için teşekkür ediyorum.

 

[xnanx]

Bu çok işime yaradı teşekkür ederim.
A1 den başlayıp a2,a3,a4 gibi ne kadar iban varsa, karşılıklarını b1,b2,b3 gibi yazdırabilir miyiz acaba?

 

[askm]

Sub ASKM_Asci2()
Dim Yeni_Kelime As String
Dim kelime As String
Dim i As Integer
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
For a = 1 To SonSat
kelime = Range("a" & i).Value
For i = 1 To Len(kelime)
    Yeni_Kelime = Yeni_Kelime & WorksheetFunction.Dec2Hex(Asc(Mid(kelime, i, 1)))
Next i
Range("B" & i) = "0x1A" & Yeni_Kelime
Next a

MsgBox kelime & " si ASC koda çevrilmiştir...", vbInformation, "ASKM"
End Sub

 

[askm]

Pardon yanlış oldu.Aşağıdaki kodlar

Sub ASKM_Asci2()

Dim Yeni_Kelime As String
Dim kelime As String
Dim i As Integer
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
For a = 1 To SonSat
kelime = Range("a" & a).Value
For i = 1 To Len(kelime)
    Yeni_Kelime = Yeni_Kelime & WorksheetFunction.Dec2Hex(Asc(Mid(kelime, i, 1)))
Next i
Range("B" & a) = "0x1A" & Yeni_Kelime
Next a

MsgBox kelime & " si ASC koda çevrilmiştir...", vbInformation, "ASKM"
End Sub

 

[xnanx]

Ellerinize sağlık sayın askm, fakat 1. satır tamam
2.satırı birinci satır ile birleştiriyor 3. satırda 1,2 ve 3 satırın getiriyor.
Yanlışlık olabilir mi acaba

 

[askm]

Birinci for dan sonra
Yeni_Kelime=Empty yazarsanız düzelir.

 

[askm]

Aşağıdaki şekilde yani.

Sub ASKM_Asci2()

Dim Yeni_Kelime As String
Dim kelime As String
Dim i As Integer
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
For a = 1 To SonSat
Yeni_Kelime=Empty 
kelime = Range("a" & a).Value
For i = 1 To Len(kelime)
    Yeni_Kelime = Yeni_Kelime & WorksheetFunction.Dec2Hex(Asc(Mid(kelime, i, 1)))
Next i
Range("B" & a) = "0x1A" & Yeni_Kelime
Next a

MsgBox kelime & " si ASC koda çevrilmiştir...", vbInformation, "ASKM"
End Sub

 

[xnanx]

Sayın askm, ellerinize sağlık çok işimi gördü.

 

[askm]

Rica ederim. Biraz aceleden yazmış oldum düzeltme yapmak zorunda kaldım.