coba gini deh..dumm, but efektif deh..
------------------------------------------------------
Private Sub Form_Load()
Dim Data As String
Dim Hasil As String
Dim AddData() As String
Dim Tot As Integer
Dim i As Integer
Dim j As Integer
Dim x As String
x = "Data" & Chr(13) & Chr(13) & _
"Data" & Chr(13) & Chr(13) & "Data"
MsgBox x
j = 1
For i = 1 To Len(x)
j = InStr(j, UCase(x), "DATA", vbTextCompare)
Data = Data & Mid(x, j, 4) & "|"
i = i + j
j = j + 5 'panjang kata "DATA" + 1
Next i
Tot = -1
AddData() = Split(Data, "|")
For i = 0 To UBound(AddData)
If AddData(i) <> "" Then
Tot = Tot + 1
AddData(Tot) = Trim(AddData(i))
End If
Next
ReDim Preserve AddData(Tot)
For i = 0 To UBound(AddData)
Hasil = Hasil & AddData(i) & Chr(13)
Next i
MsgBox Hasil
End Sub
-------------------------------------------------
Regards,
Uwan
On 1/23/08, Gege Nugroho <[EMAIL PROTECTED]> wrote:
>
> Lam Nal bro VBers...
>
> Gwe ada masalah neh mengenai Fungsi FindReplace atau Replace di VB.
> Contoh kasus ini berhubungan dengan alat barcode :
>
> Kondisi sekarang
> data
>
> data
>
> data
>
> Kondisi yang diminta
> data
> data
> data
>
> Nah gwe dapet info mengenai fungsi FindReplace ato Replace untuk
> menghilangkan chr(13) yang relevan dengan data yang diminta.
>
> Pertanyaannya :
> Untuk kasus gwe diatas gimana sih kodingnya untuk ngapus/ngilangin fungsi
> chr(13) itu supaya hasilnya seperti yang diingini.
>
> Trims yo VBers...
>
>
>
> Regards
> Gege Nugroho
>
> ------------------------------
> Never miss a thing. Make Yahoo your
> homepage.<http://us.rd.yahoo.com/evt=51438/*http://www.yahoo.com/r/hs>
>
>
>
