Metin&Sayı bileşiminden Metni Ayırmak

[EKREM1661]

Sevgili arkadaşlar..selamlar..!

metinden rakamı ayırma konusunda, forumda yaptığım aramada; metinden sayıyı ayırarak veren birbirine alternatif aşağıdaki kodları edindim..
Fakat bana bunların tersi de lazım..yani başvuru yaptığım metin&rakam bileşiminden bana metni versin..
Bu düzenlemeyi yapacak kardeşimize şimdiden müteşekkirim..

Sn.Haluk'dan:
Function Ayir2(TEXT As String) As Double
Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "[^0-9,]"
Ayir2 = RegExp.Replace(TEXT, "")
Set RegExp = Nothing
End Function

Sn.Alpen'den
Function AYIR(TEXT As String) As Double
Dim I As Integer
Dim Kar As String
For I = 1 To Len(TEXT)
Kar = Mid(TEXT, I, 1)
If IsNumeric(Kar) = True Then
AYIR = AYIR & Kar
Else
If Kar = "." Then
AYIR = AYIR & Kar
End If
End If
Next
End Function

Sn.Veyselemre'den:
Function AYIRIM(TEXT)
For X = 1 To Len(TEXT)
Kar = Mid(TEXT, X, 1)
If (Asc(Kar) < 48 Or Asc(Kar) > 57) And 44 <> Asc(Kar) Then Kar = ""
AYIRIM = AYIRIM + Kar
Next
End Function

 

[Recep İpek]

Netten bulduğum aşağıdaki kullanıcı tanımlı fonksiyonu kullanabilirsiniz.

bDigits değerini FALSE yaparsanız METİN, TRUE yaparsanız SAYI karakterlerini verir.

Function GetDigits(sStr As String, bDigits As Boolean) As String
    With CreateObject("vbscript.regexp")
        .Pattern = IIf(bDigits, "[^\d]", "\d")
            .Global = True
        GetDigits = .Replace(sStr, "")
    End With
End Function

 

[EKREM1661]

say&#305;n Ripek..! ilginize te&#351;ekk&#252;r ediyorum.
Ancak "#De&#287;er" hatas&#305;yla kar&#351;&#305;la&#351;&#305;yorum, b&#252;y&#252;k ihtimal bir yerde hata yap&#305;yorum.

 

[Recep İpek]

TRUE yerine DO&#286;RU yazabilirmisiniz?

 

[Necdet]

TRUE=DO&#286;RU=1
FALSE=YANLI&#350;=0

da kullanabilirsiniz.

 

[eratman]

Selam arkadaşlar üstadlar. alttaki tabloya göre
işlemtarihi sıralı açıklamada sonu rakamla biten (110-111 gibi ) pos makinalarının satış ve komisyon giderlerini ayrı bir kolona nasıl yazabiliriz. yeni kolondaki degerlere banka ve pos muhasebe kayıtlarını yazsam ayrı bir sayfada çıkarması mümkünmü? teşekkür.
sorunum şu : tam 1986 satır var böyle . şimdiden teşekkür ederim . saygılarımla erdogan

İşlem Tarihi Açıklama İşlem Tutarı X Son Bakiye
01/04/2011 2634208959X010411010311 TAKSİTSATIŞ 20,00 20,00
01/04/2011 2634208959X010411010311TAKST KOM -0,38 X 19,62
01/04/2011 2634208959X010411010311TAKST BSMV -0,02 X 19,60
01/04/2011 2634208959X010411010311TAKST KPAYI -1,00 X 18,60
01/04/2011 2634208959X010411291210TAKSİTSATIŞ 76,92 95,52
01/04/2011 2634208959X010411291210TAKST KOM -1,47 X 94,05
01/04/2011 2634208959X010411291210TAKST BSMV -0,07 X 93,98
01/04/2011 2634208959X010411271110TAKSİTSATIŞ 104,16 198,14
01/04/2011 2634208959X010411271110TAKST KOM -1,98 X 196,16
01/04/2011 2634208959X010411271110TAKST BSMV -0,10 X 196,06
01/04/2011 2634208959X010411281010TAKSİTSATIŞ 181,14 377,20
01/04/2011 2634208959X010411281010TAKST KOM -3,46 X 373,74
01/04/2011 2634208959X010411281010TAKST BSMV -0,17 X 373,57
01/04/2011 2634208959X010411281110TAKSİTSATIŞ 362,75 736,32
01/04/2011 2634208959X010411281110TAKST KOM -6,91 X 729,41
01/04/2011 2634208959X010411281110TAKST BSMV -0,35 X 729,06
01/04/2011 2634233791X010411010311TAKSİTSATIŞ 19,98 749,04
01/04/2011 2634233791X010411010311TAKST KOM -0,38 X 748,66
01/04/2011 2634233791X010411010311TAKST BSMV -0,02 X 748,64
01/04/2011 2634233791X010411010311TAKST KPAYI -1,00 X 747,64
01/04/2011 2634233791X010411291210TAKSİTSATIŞ 25,98 773,62
01/04/2011 2634233791X010411291210TAKST KOM -0,49 X 773,13
01/04/2011 2634233791X010411291210TAKST BSMV -0,03 X 773,10
01/04/2011 2634233791X010411271110TAKSİTSATIŞ 53,70 826,80
01/04/2011 2634233791X010411271110TAKST KOM -1,02 X 825,78
01/04/2011 2634233791X010411271110TAKST BSMV -0,05 X 825,73
01/04/2011 2634233791X010411281110TAKSİTSATIŞ 79,08 904,81

buradaki x işaretlerini ben koydum bunu yok saymalıyız.

 

[Mehmet Şahin]

Merhaba,
örnek bir dosya ekleyebilirseniz, ilgilenme şansı daha fazla olacaktır.