İki virgül arasındaki değeri alma.

[VahapZTL]

Merhaba arkadaşlar, Shadow of Mordor oyunun dil dosyasını açıp çıkan sonucu excel dosyasında kayıt ettim fakat veriler çok karışık, bunu düzenleyen bir C# programı yazmaya çalışıyorum, yapmak istediğim şey uint TextID,4294293262,3E2DCh,4h,Fg: Bg:, böyle bir ifadede "uint TextID" yi gördüğünde text id den sonraki rakamları yani iki virgül arasında rakamları alıp datagridview içerisine atması fakat nasıl yapacağım hakkında en ufak bir bilgim yok, yardımcı olursanız sevinirim.

 

[Emir Hüseyin Çoban]

. . .

Makro ile mi yapmak istiyorsunuz yoksa C# kodlamasını mı soruyorsunuz.
datagridview dediğinizde sanırım C# için.

. . .

 

[VahapZTL]

Mümkünse C#kodu olarak yapmak istiyorum ama mümkün değil ise makro ile de olur yanlız makroyu nasıl kullanacağım hakkında pek bi fikrim yok, şimdiden teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Örnek tablo şu şekilde olsun:

Kodlar:

Sub kod()
    Application.ScreenUpdating = False
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        If Cells(i, "A") Like "uint TextID," & "*" Then
            Cells(i, "B") = Split(Cells(i, "A"), ",")(1)
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

. . .

 

[VahapZTL]

If Cells(i, "A") Like "uint TextID," & "*" Then

Bu satırda hata veriyor.

 

[Emir Hüseyin Çoban]

. . .

Kodları excel vba da çalıştırmanız gerekiyor.

. . .

 

[VahapZTL]

Evet zaten öyle yaptım

 

[Emir Hüseyin Çoban]

. . .

Bendeki işlem sonucu şu şekilde.

Ekran Görüntüsü (GİF):

. . .

 

[VahapZTL]

Çok teşekkür ederim kullanmasını çok bilmediğim için biraz zorlandım yolladığınız kod çalıştı aynı işlemi diğer satırlar için de yapabilirmiyim VB konusunda hiç bilgim C# olsa kendim bir şeyler uydururum da dediğim gibi VB sıkıntı benim için almak istediğim diğer veriler ise wstring Text yazan kısımlarda ,"yazılar", sadece yazıları almak, kusura bakmayın sizi de yoruyorum ama. Teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Şu şekilde deneyiniz.
Örnek dosya üzerinde görsek daha anlaşılır olacaktır. Tırnak aralığını mı almak istiyorsunuz. Yine virgül mü.

If Cells(i, "A") Like "[B]wstring Text[/B]," & "*" Then

. . .

 

[VahapZTL]

Hocam yapmak istediğim string1.xlsx dosyasını -> string1.xlsx - 3.1 MB
Bu dosyaya benzetmek. -> string.xlsx - 1.5 MB Daha önce uğraşmadığım için bu kadar yoruyorum seni kusura bakma.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir. İnceleyiniz.

http://dosya.web.tr/OAzBqN


. . .

 

[VahapZTL]

Çok teşekür ederim hocam çok sağolun, bu kadar uğraştırdım sizi hakkınızı helal edin.