Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


63897 / 76738 ←次へ | 前へ→

【17431】Re:文字列を8ビットコードに簡単に変換したい
回答  Hirofumi  - 04/8/29(日) 12:46 -

引用なし
パスワード
   善くTest指定無いので上手く動くのか?

以下を標準モジュールに記述して下さい

Option Explicit

Public Function Decode(ByVal strValue As String) As String

  Dim i As Long
  Dim strBuff As String
  Dim strResult As String
  
  If strValue = "" Then
    Exit Function
  End If
  
  For i = 1 To Len(strValue) Step 8
    strBuff = Mid(strValue, i, 8)
    strResult = strResult & Chr(ToDecimal(strBuff, 2))
  Next i
  
  Decode = strResult

End Function

Public Function ToDecimal(ByVal strValue As String, _
            ByVal lngSystem As Long) As Long

  Dim i As Long
  Dim lngWeight As Long
  Dim lngLeng As Long
  Dim lngResult As Long
  Dim lngBase As Long
  Dim strBase As String
  
  If strValue = "" Then
    Exit Function
  End If
  
  strValue = StrConv(strValue, vbNarrow + vbUpperCase)
  lngLeng = Len(strValue)
  lngWeight = lngSystem ^ (lngLeng - 1)
  For i = 1 To lngLeng
    strBase = Mid(strValue, i, 1)
    Select Case Asc(strBase)
      Case 48 To 57
        lngBase = CLng(strBase)
      Case 65 To 90
        lngBase = 10 + Asc(strBase) - 65
      Case Else
        Exit Function
    End Select
    lngResult = lngResult + lngBase * lngWeight
    lngWeight = lngWeight \ lngSystem
  Next i
  
  ToDecimal = lngResult
  
End Function

UserFormのTextBox2に有る値をCommandButton1を押すと
TextBox3に結果を表示します

Private Sub CommandButton1_Click()

  TextBox3.Text = Decode(TextBox2.Text)
  
End Sub
0 hits

【17413】文字列を8ビットコードに簡単に変換したい HyperVTEC 04/8/28(土) 23:39 質問
【17419】Re:文字列を8ビットコードに簡単に変換した... Hirofumi 04/8/29(日) 1:11 回答
【17423】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 9:25 質問
【17426】Re:文字列を8ビットコードに簡単に変換した... Hirofumi 04/8/29(日) 11:38 回答
【17425】Re:文字列を8ビットコードに簡単に変換した... ichinose 04/8/29(日) 10:58 発言
【17428】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 11:56 質問
【17431】Re:文字列を8ビットコードに簡単に変換した... Hirofumi 04/8/29(日) 12:46 回答
【17433】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 13:50 お礼
【17434】Re:文字列を8ビットコードに簡単に変換した... ichinose 04/8/29(日) 14:34 発言
【17435】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 16:56 お礼
【17436】Re:文字列を8ビットコードに簡単に変換した... ichinose 04/8/29(日) 17:47 発言
【17437】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 18:28 質問
【17438】Re:文字列を8ビットコードに簡単に変換した... ichinose 04/8/29(日) 18:39 発言
【17439】Re:文字列を8ビットコードに簡単に変換した... HyperVTEC 04/8/29(日) 19:00 お礼

63897 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free