Question

vb将字符串转为GB2312怎么实现？

用%号连接起来！求啦！

Answer 1

Function URLEncode(ByVal urlText As String) As String
Dim i As Long
Dim ansi() As Byte,ascii As Integer
Dim encText As String
    ansi = StrConv(urlText, vbFromUnicode)
    encText = ""
 For i = 0 To UBound(ansi)
    ascii = ansi(i)
    Select Case ascii
    Case 48 To 57, 65 To 90, 97 To 122
        encText = encText & Chr(ascii)
    Case 32
        encText = encText & "+"
    Case Else
        If ascii < 16 And ascii >= 0 Then
            encText = encText & "%0" & Hex(ascii)
        Else
            encText = encText & "%" & Hex(ascii)
            'encText = encText & Chr(ascii)
        End If
    End Select
 Next i
URLEncode = encText
End Function
'用法：
msgbox URLEncode(text1.text) '把文本框中的汉字转换为%形式的URL编码。

追问

厉害啊！ 完美解决！ 帮我看一下另一个问题！ 我又提了一个新问题！关于控件数组的！我解决不了，不知道哪里出错了！