trim fonksiyonu acil yardım...

[ozlem()]

arkadaşlar trim fonksiyonu hakkında bilgilerinize ihtiyacım var
trim fonksiyonunu uzun kod şeklinde verebilir misiniz.

 

[modalı]

Sayın ozlem()

Tam olarak ne istediğiniz anlaşılmıyor. Ne yapmak istediğinizi daha açık olarak yazabilir misiniz?


İyi çalışmalar

 

[broker88]

ark acil olarak trim fonksiyonun uzun kod şeklinde verebilirisniz.

 

[Zeki Gürsoy]

Böyle birşey olabilir..

Function TrimA(MyString As String) As String
Dim tmp As String, i&, j&

For i = 1 To Len(MyString)
    If Not Left$(MyString, 1) = " " Then Exit For
    MyString = Replace(MyString, " ", "", Count:=1)
Next

tmp = StrReverse(MyString)
For j = 1 To Len(tmp)
    If Not Left$(tmp, 1) = " " Then Exit For
    tmp = Replace(tmp, " ", "", Count:=1)
Next

TrimA = StrReverse(tmp)
End Function

 

[broker88]

Çok teşekkürler işime yaradı sag olun .....