Private Function toAscii(ByVal sIn As String) As String toAscii = Nothing On Error Resume Next Dim i As Integer Dim btmp() As Byte btmp = System.Text.Encoding.Default.GetBytes(sIn) For i = LBound(btmp) To UBound(btmp) toAscii = toAscii & "%" & Microsoft.VisualBasic.Right("00" & Hex(btmp(i)), 2) End Function

Private Function toAscii(ByVal sIn As String) As String toAscii = Nothing On Error Resume Next Dim i As Integer Dim btmp() As Byte btmp = System.Text.Enc public class String ToAscall { public static void main( String [] args){ /* String str = "20191031"; String ascii Result = string To Ascii (str); System.out.println( ascii R... public static byte [] str2 ASCII ( String xmlStr) return Encoding.Default.Get Byte s(xmlStr); ASCII 转字符串 public static string Ascii 2Str( byte [] buf) return