Dijit Sayısına Göre Sütunlara Ayırma

[smetcan]

Herkese Merhabalar,

Benim sizlere şöyle bir sorum olacak;
Elimde bir dosya var ve dosya txt formatında, dosyadaki veriler sütunlarına göre ayrılmamışlar(herhangi bir ayraç işareti yok). Örnek verirsem daha iyi anlatacağım.
Örneğin bir satırda 150 dijit var ve hepsi bir birine bitişik, bunun ilk 10 dijiti müşteri no, sonraki 11 dijiti TCKN, sonraki 10 dijiti telefon numarası vb şeklinde devam ediyor. Ben makro ile veya başka bir yöntemi varsa bunları sütun sütun ayırmak istiyorum.

Konu hakkında yardımlarınızı bekliyorum.
Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Örnek basit bir dosya eklerseniz yardım alma şansınız daha da artar.

 

[Necdet]

Merhaba,

Yanıt çıkmadı biz birşeyler yapalım, sizde örneği devam ettirirsiniz.

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub DosyaGetir()
    
    Dim Yol         As String, _
        DosyaAdi    As String, _
        Veri        As String, _
        i           As Long, _
        Dosya_Uzunluk As Integer, _
        a
    On Error GoTo Son
    Application.ScreenUpdating = False
    
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
            a = Split(StrReverse(.SelectedItems(1)), "\")
            Dosya_Uzunluk = Len(Trim$(a(0)))
            Yol = Left(.SelectedItems(1), Len(.SelectedItems(1)) - Dosya_Uzunluk)
            DosyaAdi = Right(.SelectedItems(1), Dosya_Uzunluk)
    End With
        
    Range("A2:G65000").ClearContents
    
    Open Yol & DosyaAdi For Input As #1
    
    i = 2
    While Not EOF(1)
    
        Line Input #1, Veri
        
        Cells(i, "A") = Left(Veri, 10)
        Cells(i, "B") = Mid(Veri, 11, 11)
        Cells(i, "C") = Mid(Veri, 22, 10)
        
        i = i + 1
    
    Wend
    
    Close #1
Son:
    Application.ScreenUpdating = True
    
    MsgBox "İŞLEM BİTMİŞTİR....", vbInformation, "N. YEŞERTENER"
    
End Sub

 

[Necdet]

Oldu muuuuuuu olmadı mııııııııııı insan bir geri dönüş yapar beyaaa

 

[eseniks]

olmamış dedi

 

[tahsinanarat]

Sn. necdet hocam kodlar güzel arşivime alıyorum, belki bir gün lazım olur. Benim için olmuş

 

[Necdet]

olmamış dedi

Laf olsun diye yazılmış bir mesaj sanırım.