![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_09.png?8acaa2e)
(1)文字列 2-ABC1234(9文字)をアスキーコード化し
変数配列txt(1 to 10)に
txt(1)=322D「2-」,txt(2)=4142「AB」,
txt(3)=4331「C1」,txt(4)=3233「23」,
txt(5)=3400「4」,txt(6)=0000「」,
txt(7)=0000「」,txt(8)=0000「」,
txt(9)=0000「」,txt(10)=0000「」
とセットしたいのですが、どのようにすれば良いのでしょうか?
(2)(1)の逆変換で変数txt(1 to 10)を 変数mozi as string に「2-ABC1234」とセットしたいのですが、どのようにすれば良いのでしょうか?
初歩的なご質問で申し訳ございません。
よろしくお願いいたします
No.1ベストアンサー
- 回答日時:
もう少し、きれいな形にしたかったけれども、今のところ、こんな程度です。
Sub Code_Hennkan(ByVal myString As String)
Dim myCode As String
Dim delim As String
Dim txt(1 To 10) As Variant
Dim i As Integer, j As Integer
For i = 1 To Len(myStr)
myCode = myCode & Hex(Asc(Mid(myStr, i, 1)))
Next i
myCode = myCode & String(40 - Len(myCode), "0")
For j = 1 To 40 Step 4
txt((j - 1) / 4 + 1) = Mid(myCode, j, 4)
Next j
End Sub
Sub Mozi_Henkan(ByVal BaseArray As Variant)
Dim i As Integer, j As Integer
Dim buf1 As String
Dim buf2 As String
Dim Mozi As String
For i = LBound(BaseArray) To UBound(BaseArray)
If BaseArray(i) <> "0000" Then
buf1 = buf1 & BaseArray(i) 'コードの取り出し
End If
Next i
For j = 1 To Len(buf1) Step 2
buf2 = buf2 & Chr("&h" & Mid(buf1, j, 2))
Next j
Mozi = Mid(buf2, 1, Len(buf2) - InStr(buf2, vbNullString))
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAでエクセルをtxtに変換するとエクセルでカンマを含む文字数字がtxtでは「""」付にならないよ 1 2022/08/27 12:17
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- その他(プログラミング・Web制作) ファイル名の一部をbatで変更したい batファイルを使って、以下のようにファイル名の一部を変更した 3 2023/02/21 20:09
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- UNIX・Linux Linuxについて質問です。 以下のhistoryの出力結果から、sedコマンドのファイル名tmp1 1 2023/02/03 20:11
- オープンソース Coinmarketcap api 1 2022/05/30 15:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/02/05 09:55
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/04 14:20
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- その他(プログラミング・Web制作) Pythonの質問です テキストファイルをこのように自動生成したいのですがどうすれば良いでしょうか. 2 2022/08/25 21:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのマクロについて教え...
-
重複確認
-
エクセルのマクロについて教え...
-
[VB.net] ボタン(Flat)のEnable...
-
マクロの記録を使用したマクロ...
-
エクセルのVBAコードについて教...
-
{ CONTROL Forms.Label.1}が...
-
VBAでCOPYを繰り返すと、処理が...
-
VBの色を変えるにはどうしたら...
-
VBAなくなるの?
-
Outlookの「受信日時」「送信者...
-
vbaにてseleniumを使用したedge...
-
VBA一覧取得 再投稿
-
IEを使わないでhtmlテキストを...
-
A列B列どちらにもあるのを抽...
-
Excelに保存されているユーザー...
-
VBAコンボボックスで選択した値...
-
Excel 範囲指定スクショについ...
-
Excelのマクロについて教えてく...
-
for 文の 繰り返し処理に使える...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチ処理 特定の文字以降を...
-
Access VBA エラー2448について
-
VBA テキストボックスを選択状...
-
[コンパイルエラー 修飾子が不...
-
verilog HDLについての質問です...
-
SQLでテキストボックスの文字を...
-
型の値をDataGridViewセルに変換...
-
teratermで、ファイル名をinput...
-
フォームのResizeイベントについて
-
MS-DOSバッチファイルコマンド...
-
複数の数字が書かれた文字列をs...
-
分数の計算のプログラミングです。
-
エクセルVBAで公用宣言した...
-
ruby テキストファイル書き出し...
-
バッチ for /f 空白、スペース...
-
Fileの読み込み処理について
-
プログラミングによるオセロゲ...
-
バッチファイル フォルダ名をフ...
-
言語[RUBY]を用いて、特定列を...
-
キーが重複しているデータの統...
おすすめ情報