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]
