首頁猿問這一段vb代碼轉(zhuǎn)成c#代碼，幫幫吧。

這一段vb代碼轉(zhuǎn)成c#代碼，幫幫吧。

.NET

慕妹3146593 2018-12-07 07:48:36

Private Function AscToChar(ByVal sAsc As String) As String Dim iLen As Integer Dim i As Integer On Error GoTo err_Trans AscToChar = "" iLen = CInt(Len(sAsc) / 2) For i = 0 To iLen - 1 If CInt("&H" & Mid(sAsc, i * 2 + 1, 2)) < &H20 Then AscToChar = "" Exit Function Else AscToChar = AscToChar & Chr(CInt("&H" & Mid(sAsc, i * 2 + 1, 2))) End If Next iexit_Trans: Exit Functionerr_Trans: AscToChar = "" Resume exit_Trans End Function

查看完整描述

2 回答

慕萊塢森

TA貢獻(xiàn)1810條經(jīng)驗(yàn) 獲得超4個(gè)贊

private string AscToChar(string sAsc)
{
    string functionReturnValue = null;

    int iLen = 0;
    int i = 0;

     // ERROR: Not supported in C#: OnErrorStatement


    functionReturnValue = "";
    iLen = Convert.ToInt32(Strings.Len(sAsc) / 2);
    for (i = 0; i <= iLen - 1; i++) {
        if (Convert.ToInt32("&H" + Strings.Mid(sAsc, i * 2 + 1, 2)) < 0x20) {
            functionReturnValue = "";
            return functionReturnValue;
        } else {
            functionReturnValue = functionReturnValue + 
Strings.Chr(Convert.ToInt32("&H" + Strings.Mid(sAsc, i * 2 + 1, 2)));
        }
    }
    exit_Trans:
    return functionReturnValue;
    err_Trans:
    functionReturnValue = "";
     // ERROR: Not supported in C#: ResumeStatement

    return functionReturnValue;
}