Pake fungsi SPLIT lebih mudah (hasil berupa array) Salam, Newbie
On 9/4/08, Kudo, Shinichi <[EMAIL PROTECTED]> wrote: > Coba pake 'code ini pak : > > > '----------------------------BOF------------------------- > Private Sub Command1_Click() > Dim sSTR As String > Dim sTMP As String > Dim Data() As String > Dim HIT As Integer > Dim nCount As Integer > Dim I As Integer > > Dim sResult As String > > 'string yg akan di proses... > sSTR = "IN0801104+IN0801105+IN0801114+IN0801115" > > HIT = 0 > > 'looping buat hitung jumlah karakter '+' > For I = 1 To Len(sSTR) > sTMP = Mid(sSTR, I, 1) > If sTMP = "+" Then HIT = HIT + 1 > > Next I > > 'redeklarasi array... > ReDim Data(HIT) > > > nCount = HIT > > sTMP = "" > sResult = "" > > > HIT = 0 > For I = 1 To Len(sSTR) > > sTMP = Mid(sSTR, I, 1) > > 'menyatukan data sampai menemukan karakter '+' > If sTMP <> "" And sTMP <> "+" Then > sResult = sResult & sTMP > End If > > 'if ini untuk menyatukan karakter terakhir > If I = Len(sSTR) Then > sResult = sResult & sTMP > Data(HIT) = sResult > End If > > > 'jika bertemu karakter '+' masukan ke array > If sTMP = "+" Then > > Data(HIT) = sResult > HIT = HIT + 1 > > sResult = "" > sTMP = "" > > End If > > > 'jika akhir dari string masukan ke arrray > If I = Len(sSTR) Then > > Data(HIT) = sResult > HIT = HIT + 1 > > sResult = "" > sTMP = "" > > End If > > > Next I > > 'hanya untuk menampilkan code > For I = 0 To nCount > > MsgBox "Data Hasil : " & Data(I) > > Next I > > > > End Sub > > '----------------------------EOF------------------------- > > > > maaf kalo logikanya belibet, para suhu please CMIIW yach..... > > > Cheers, > > Jemy A > > > > > ----- Original Message ----- > From: muakhori ibnu > To: [email protected] > Sent: Thursday, September 04, 2008 1:07 PM > Subject: [*** SPAM ***] [indoprog-vb] Help me > > Dear Vbers, > gimana caranya memisahkan bentuk string spt ini > "IN0801104+IN0801105+IN0801114+IN0801115" menjadi sbb : > IN0801104 > IN0801105 > IN0801114 > IN0801115 > > jadi spt mengambil kata dari string diatas > > Terima kasih > > > > > <<Please Make a Diggest This Groups>> > > [Non-text portions of this message have been removed] > >
