程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> C語言 >> 關於C語言 >> 字符串和十六進制之間的轉換方法(1)

字符串和十六進制之間的轉換方法(1)

編輯:關於C語言

1.C#中的代碼

/// <summary>
    /// <函數:Encode>
    /// 作用:將字符串內容轉化為16進制數據編碼,其逆過程是Decode
    /// 參數說明:
    /// strEncode 需要轉化的原始字符串
    /// 轉換的過程是直接把字符轉換成Unicode字符,比如數字"3"-->0033,漢字"我"-->U+6211
    /// 函數decode的過程是encode的逆過程.
    /// </summary>
    /// <param name="strEncode"></param>
    /// <returns></returns>
    public static string Encode(string strEncode)
    {
      string strReturn = "";// 存儲轉換後的編碼
      foreach (short shortx in strEncode.ToCharArray())
      {
        strReturn += shortx.ToString("X4");
      }
      return strReturn;
    }
    /// <summary>
    /// <函數:Decode>
    ///作用:將16進制數據編碼轉化為字符串,是Encode的逆過程
    /// </summary>
    /// <param name="strDecode"></param>
    /// <returns></returns>
    public static string Decode(string strDecode)
    {
      string sResult = "";
      for (int i = 0; i < strDecode.Length / 4; i++)
      {
        sResult += (char)short.Parse(strDecode.Substring(i * 4, 4), global::System.Globalization.NumberStyles.HexNumber);
      }
      return sResult;
    }

2.VB6中的代碼

'*******************************************************************

'<函數:Encode>
'作用:將字符串內容轉化為16進制數據編碼,其逆過程是Decode
'參數說明:
'strSource 需要轉化的原始字符串
Public Function Encode(strEncode As String) As String
  Dim i As Long
  Dim chrTmp$
  Dim ByteLower$, ByteUpper$
  Dim strReturn$ '存儲轉換後的編碼
  
  For i = 1 To Len(strEncode)
    chrTmp$ = Mid(strEncode, i, 1)
    ByteLower$ = Hex$(AscB(MidB$(chrTmp$, 1, 1)))
    If Len(ByteLower$) = 1 Then ByteLower$ = "0" & ByteLower$
    ByteUpper$ = Hex$(AscB(MidB$(chrTmp$, 2, 1)))
    If Len(ByteUpper$) = 1 Then ByteUpper$ = "0" & ByteUpper$
    strReturn$ = strReturn$ & ByteUpper$ & ByteLower$
  Next
  
  Encode = strReturn$
End Function
'</函數:Encode>

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved