Excel VBA質問箱 IV

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

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


63903 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   「JIS8単位コード」が善く解らないのですが?
ASCIIコードと同じなら以下の様で善いのかな?
以下を標準モジュールに記述して下さい

Option Explicit

Public Function JIS8(ByVal strValue As String) As String

  Dim lngASCNo As Long
  
  lngASCNo = Asc(Left(strValue, 1))
  If Not ((&H20 < lngASCNo And lngASCNo < &H7F) _
      Or (&HA1 < lngASCNo And lngASCNo < &HE0)) Then
    Exit Function
  End If
  
  JIS8 = Right(String(8, "0") & ToSystem(lngASCNo, 2), 8)
  
End Function

Public Function ToSystem(ByVal lngDecimal As Long, _
            ByVal lngSystem As Long) As String

  Dim strResult As String
  Dim lngRemainder As Long
  Dim strRemainder As String
  
  If lngSystem < 2 Then
    Exit Function
  End If
  
  Do Until lngDecimal = 0
    lngRemainder = lngDecimal Mod lngSystem
    If lngRemainder > 9 Then
      strRemainder = Chr(65 + lngRemainder - 10)
    Else
      strRemainder = CStr(lngRemainder)
    End If
    strResult = strRemainder & strResult
    lngDecimal = lngDecimal \ lngSystem
  Loop
  
  ToSystem = strResult
  
End Function

TextBoxのイベントの方は、

TextBox2.Text = JIS8(TextBox1.Text)

として下さい

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 お礼

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