Re: [belajar-access] Manipulasi String

Function Transform(aString As String) As String
    Dim arr() As String
    arr = Split(aString, " ")
    Transform = Right(aString, Len(aString) - Len(arr(0)) - 1) & " " & arr(0)
End Function

?Transform("ABC Mentimun Jepang")
Mentimun Jepang ABC

?Transform("ABC Mentimun Jepang Bagian Pojok Sekali")
Mentimun Jepang Bagian Pojok Sekali ABC


Nah, yang kayak gini-ginian susah di terapkan di access versi web ....
ugh....



aksan kurdin



On 11/18/2010 10:39 AM, noorshiam wrote:

 

Dear All My Best Friend At Belajar-Access ^_^

To the point aja, misal saya punya string berikut :

ABC Mentimun Jepang
ABC Labu Siyem
BCD Kangkung Lombok
DEF Cabe Rawit

Nah, bagaimana cara memanipulasi string diatas sehingga menjadi :

Mentimun Jepang ABC
Labu Siyem ABC
Kangkung Lombok BCD
Cabe Rawit DEF

Atas bantuan dan pencerahan rekan-rekan yang baik, saya haturkan banyak-banyak terima kasih.

Salam

Arief Noorshiam

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___