Code...:
Dim x As Variant
Dim y As Variant
Dim hasil As String
hasil = ""
x = Split("IN0801104+IN0801105+IN0801114+IN0801115", "+")
For i = 0 To 3
y = x(i)
hasil = hasil & vbCrLf & y
Next
MsgBox hasil
Logika :
Gunakan fungsi split mengecek karakter "+", buat hasilnya ke array.
Sesudah itu, baru gunakan karakter string sambung dipisahkan tombol enter
(vbCrLf).
Regards
--- On Thu, 9/4/08, aslimimi2005 <[EMAIL PROTECTED]> wrote:
From: aslimimi2005 <[EMAIL PROTECTED]>
Subject: [indoprog-vb] Re: Help me
To: [email protected]
Date: Thursday, September 4, 2008, 9:07 AM
mungkin sedikit scrip spt ini (CMIIW)
text="IN0801104+ IN0801105+ IN0801114+ IN0801115"
i=instr(1,text, "+") => i=10
hasil1=mid(text, 1, i - 1)
j=instr(i+1, text,"+") => j=20
hasil2=mid(text, i+1, j - 1)
..
..
..
dst
....
--- In indoprog-vb@ yahoogroups. com, muakhori ibnu <[EMAIL PROTECTED] .> wrote:
>
> Dear Vbers,
> gimana caranya memisahkan bentuk string spt ini
"IN0801104+IN080110 5+IN0801114+ IN0801115" menjadi sbb :
> IN0801104
> IN0801105
> IN0801114
> IN0801115
>
> jadi spt mengambil kata dari string diatas
>
> Terima kasih
>
[Non-text portions of this message have been removed]
