Okunamayan yazı karakterleri hakkında

[aytacin]

Merhaba, adres listelerimde bazı okunamayan karakterler çıkıyor. Listeler çok olduğu için bunları tek tek düzeltmek nerdeyse imkansız. Mesela" D黶seldorfer Strasse" burada Düsseldorfer Strasse yazması gerekiyor. Aşağıda örneğide var. Bunları düzeltmek mümkünmüdür.

 

[mustafaine1]

ctrl + h ile en rahat sekilde duzenlenebilir sanirim.. aksi sekilde asc2 kodlarini bulmak gerekir..

 

[aytacin]

Evet ctrl+h ile yapabildiğimi düzeltiyorum ama o kadar uzunkiliste felaket zaman alıyor.asc2 kodlarını nasıl bulabilirim ki acaba. Bulsamda burdan nasıl değiştirebileceğim. Uff zor bişey galiba. Belki ayrı bir software falan vardır...

 

[mustafaine1]

Replace(sString, Chr(34), Chr(39)) bu sekilde bir vba kodu ile duzenlenebilir fakat karakter numaralarini bulmak gerekir.. ascII kodlarinin internette listeleri var bir goz atiniz isterseniz..

 

[Korhan Ayhan]

Selamlar,

Eğer imkanınız varsa "Tabelle2" isimli sayfada A sütununa bozuk olan harflerin indexini çıkarın. B sütununada olması gereken harfleri yazın. Daha sonra aşağıdaki kodu çalıştırın.

Örnek;

Option Explicit
 
Sub HATALI_HARFLERİ_DÜZELT()
    Dim X As Byte
 
    For X = 2 To Sheets("Tabelle2").Range("A65536").End(3).Row
        Sheets("Tabelle1").Cells.Replace What:=Sheets("Tabelle2").Cells(X, 1), Replacement:=Sheets("Tabelle2").Cells(X, 2), LookAt:=xlPart, MatchCase:=True
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mustafaine1]

Korhan bey cok guzelmis gercekten elinize saglik..

 

[aytacin]

Arkadaşlar çok teşekkür ederim. Süper tavsiyeler. Kısaca uğraşmadan düzelmeyecek bunlar. O kadar büyük listeler varki bu işaretleri bulup çıkarmak çook zaman alacak ama yapacak başka bişey yok sanırım. Mesela örnek gönderdiğim liste 10000 sıralı ve her 4. veya 5. satırda bu işaretlerden var. Almadığı harfler ü, ö, i ve almancadaki şapkalı a ile ss işareti. İşin kötüsü birde bu harfin yanındaki harfide kodluyo. Mesela örnekteki Düsseldorf kelimesinde üs yerine bişey yazıyo! Listede ü ile başlayan birsürü ikili var. üb, üc,üd gibi herbirine ayrı bir işaret veriyo. Tek harf olsa değiştirden çabuk düzelir ama değil işte maalesef. Çözemedim gitti. İlginiziçin teşekkürler........

 

[Korhan Ayhan]

Selamlar,

Eğer tüm harflerin indexini çıkarmak işinizi kolaylaştıracaksa aşağıdaki kodu kullanabilirsiniz. Bu kodu çalıştırdıktan sonra size sadece aradaki bozuk karakterlerin olması gereken karşılıklarını yazmak kalıyor. En son olarakta #5 nolu mesajımdaki kodu çalıştırırsanız bozuk karakterleri düzeltmiş olursunuz.

Option Explicit
 
Sub KARAKTERLERİ_LİSTELE()
    Dim S1 As Worksheet, S2 As Worksheet
    Dim Hücre As Range, X As Integer
    Dim Benzersiz As New Collection, Say As Long
    
    Application.ScreenUpdating = False
    
    Set S1 = Sheets("Tabelle1")
    Set S2 = Sheets("Tabelle2")
    
    S2.Columns(1).Clear
    
    For Each Hücre In S1.Range("A1:G" & S1.Range("A65536").End(3).Row)
        If Not IsNumeric(Hücre.Value) And Not IsDate(Hücre.Value) Then
            For X = 1 To Len(Hücre.Text)
                On Error Resume Next
                Benzersiz.Add Mid(Hücre.Value, X, 1), CStr(Mid(Hücre.Value, X, 1))
            Next
        End If
    Next
    
    If Benzersiz.Count > 0 Then
        For Say = 1 To Benzersiz.Count
            S2.Cells(Say, 1) = Benzersiz(Say)
        Next
    End If
    
    S2.Select
    Set S1 = Nothing
    Set S2 = Nothing
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub