Thursday, June 7, 2012

Menghapus Spasi Yang Tidak Diperlukan (Spasi Rangkap)

Option Explicit 
 
Private Function DelJunkSpace(str As String) As String 
    Do While (InStr(str, "  ") > 0) 
        str = Replace(str, "  ", " ") 
    Loop 
    DelJunkSpace = str 
End Function

Private Sub Form_Load() 
    Dim str As String 
    str = "Asep         Hibban        http://4basic-vb.blogspot.com" 
    'return = "Asep Hibban http://4basic-vb.blogspot.com" 
    Text1.Text = str 
End Sub