エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150304100303]]: #score: 9211; @digest: b35f518bec9c1588dd0659c1665fba6a; @id: 67398; @mdate: 2015-03-04T12:29:19Z; @size: 3040; @type: text/plain; #keywords: base64 (36351), ldapsearch (15241), base64decode (15241), manualfiles (14536), デコ (13815), fujitsu (10097), 列| (6664), 力イ (6553), ジ| (5007), software (4166), ド変 (4148), 順? (3769), linux (2674), 字コ (2204), 出力 (2012), 他サ (1959), 、ba (1813), utf (1516), （ho (1486), hoge (1412), 変換 (1223), 回変 (1073), 本語 (928), コー (746), イメ (746), 日本 (745), メー (706), 水) (604), ドし (600), ード (585), 2015 (583), 利用 (532); 『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ですか? linuxで出力したテキストならば、実はUTF-8の文字コードだった、とかでは? メールで受け取ったデータが…、とかでもないならば、BASE64で出力される理由が判らないです。出力された実例を挙げてください。（???） 2015/03/04(水) 10:24 ---- でもって、UTF-8だったという場合、ldapsearchの引数でエンコードする文字コードをSJISにするとか、またはwindowsにftpでもってくる際にコード変換するとかでは対応できませんか? VBAでUTF-8コード変換するロジックを書いたこともありますが、4バイトコードまでは対応しなかったし…。 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 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150304100303.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ