Dim b As Byte b = Asc(Mid(str, i, 1)), Dim ch As String ch = Chr(abArray(i - 1)). Length, Dim nLen As Long nLen = Len(str)
確定! 回上一頁