[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『Base64形式をデコードしたい』(hoge)
はじめまして。
linux上からldapsearchコマンドで出力した情報をcsv形式で保存したのですが、
重要な情報がBase64形式で表示されてしまっているため、
デコードが必要とのことです。
以下のような出力イメージですが、他サイトでVBAで変換する手順?が紹介されていましたが、
具体的なイメージが沸かないため、質問させていただきました。
なお、今回変換したい箇所は、以下、P,Q,K 部分のみとなります。
■出力イメージ
| A列 | B列 | C列 | D列 |
------------------------------------------------------
| 1 | P | Q | K |
------------------------------------------------------
| 2 | P | Q | K |
------------------------------------------------------
・
・
・
宜しくお願いします。
< 使用 Excel:Excel2010、使用 OS:Windows7 >
BASE64かどうか判断するには、例えば、以下のページでコード変換できるか試してみるというのも簡単かも知れません。
http://www.ahref.org/app/base64/base64.cgi
(???) 2015/03/04(水) 10:32
ありがとうございます。
下記サイトにもあります通り、BASE64で出力されています。
Web上のデコードツールを使ってUTF-8にデコードしたところ、
綺麗に日本語に変換されていたので、間違いありません。
http://software.fujitsu.com/jp/manual/manualfiles/M050008/B1WN5861/01Z200/idmgr14/idmgr570.htm
※事例10に記載されている通りです
VBAでの処理が厳しければ、RHEL上でgccを利用し
C言語で編集を試みてみます。
ありがとうございます。
(hoge) 2015/03/04(水) 13:01
例えば、のんさん@NonSoft作成の、Base64Decode()を利用する場合。
http://homepage2.nifty.com/nonnon/SoftSample/SampleBase64.html
Sub test() Dim i As Long Dim j As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row For j = 0 To 2 Cells(i, 2 + j).Value = StrConv(Base64Decode(Cells(i, Array("K", "P", "Q")(j)).Value), vbUnicode) Next j Next i End Sub (???) 2015/03/04(水) 15:06
変換を考える前に、出力の変更を検討してはどうでしょうか。 オプション指定で UTF-8 での出力が出来るように見えます。 http://software.fujitsu.com/jp/manual/manualfiles/M050000/B1WN4911/01/idmgrae/idmgr764.htm
(Mook) 2015/03/04(水) 21:29
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.