Function CONVERTP(X As String) Dim I As Integer CONVERT = "" If Len(X) 0 Then For I = 1 To Len(X) Dim TEMPCHAR As String TEMPCHAR = Mid(X, I, 1) CONVERTP = CONVERTP Asc(TEMPCHAR) * 0.25 " " Next I Else CONVERT = "" End If End Function Function CONVERTQ(X As String) Dim TEMPCHAR As String TEMPCHAR = X Dim POSITION As Integer POSITION = InStr(TEMPCHAR, " ") Dim CHARSTRING As String CHARSTRING = "" While POSITION -1 Dim TC As String Dim LC As Integer If POSITION 0 Then TC = Chr(Left(TEMPCHAR, POSITION - 1)) LC = Len(TEMPCHAR) CHARSTRING = CHARSTRING + TC TEMPCHAR = Mid(TEMPCHAR, POSITION + 1, LC - POSITION) POSITION = InStr(TEMPCHAR, " ") Else TC = Chr(TEMPCHAR) CHARSTRING = CHARSTRING + TC POSITION = -1 End If Wend CONVERTQ = CHARSTRING End Function
标签: Convert经管大学堂：名校名师名课
京公网安备 11010802022788号
论坛法律顾问：王进律师
知识产权保护声明
免责及隐私声明
