VB6常用编程方法汇编,编程方法范例,如: 清除字符串的所有空格 Function Trimk(cc0) Dim i, j, s1 j = Len(cc0) i = 1 While i < j + 1 s1 = Mid(cc0, i, 1) 'MsgBox "s1=" & s1 & ";" If s1 = " " Or s1 = " " Then cc0 = Mid(cc0, 1, i - 1) + Mid(cc0, i + 1, j) i = i - 1 'MsgBox "cc0=" & cc0 End If
