Yahoo知恵袋で、インデント表示できる文章の生成 ～ クリップボードの文章の中の通常の空白を、特殊空白文字の「ｎｂｓｐ」＝「ChrW(160)」に変換し、再度、クリップボードへ送るプログラム。
※まだ書きかけです。すみません。
※間違ってたらすみません。
※メモ書きなので、自分でも意味不明な箇所も多いです。ごめんなさい。
★エンコードデコードサンプルダウンロード
（base64エンコードとデコード、quoted-printableデコード、URL＝パーセントデコード、Yahoo知恵袋インデント変換、のコードが入っています。）
WordPressだとプログラムがうまく表示されなかったので、こちらを見て下さい。
↓
https://euc-access-excel-db.com/00000WPZIP/nsbp_conv01.txt
なお、クリップボードの文章ではなくて、テキストファイルなどの内容を読んで今回のプログラムに送りたい場合は（＝Yahoo知恵袋でインデント表示できる文章の生成をしたい場合は）、以降のプログラムも追加するとそれができます。
このプログラムでは、テキストファイルの内容を、Openステートメントやループなどを使わずにそのまま一発で読んでしまって、それをそのまま、文字列型のデータとして返してくれます。
この場合、イミディエイトウィンドウでなら、
Call Sendcb02(NbspCnv01(TxtAllBundleRead01("ファイルパス")))
と書いて、EnterするだけでOKです。（上記URLのプログラムと一緒に使う場合。）
これで、指定したテキストファイルの内容が、「Yahoo知恵袋でインデントできる形に変換されて」、クリップボードに送られるので、あとはそれをYahoo知恵袋の回答や質問のテキストボックスに貼り付けるだけです。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
' ' '指定したテキストファイルから、ループを使わずに一発で内容を読み込む 'https://vbanobuhinko.com/%E3%83%86%E3%82%AD%E3%82%B9%E3%83%88%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%82%92%E4%B8%80%E6%8B%AC%E8%AA%AD%E3%81%BF%E8%BE%BC%E3%81%BF%E3%81%99%E3%82%8B/ Function TxtAllBundleRead01(s_Path As String) As String Dim bhTxt As String 'FSOの宣言 Dim bhFSO As Object Dim bhFSOT As Object Set bhFSO = CreateObject("Scripting.FileSystemObject") '指定テキストファイルを開く ' Set bhFSOT = bhFSO.OpenTextFile("指定テキストファイルの絶対パス") Set bhFSOT = bhFSO.OpenTextFile(s_Path) '開いたテキストを1つのデータに一括読み込み Let bhTxt = bhFSOT.ReadAll Let TxtAllBundleRead01 = bhTxt 'FSOの解放 Set bhFSOT = Nothing Set bhFSO = Nothing End Function ' ' |
- 投稿タグ
- ExcelVBA, Excelの独学, Excel操作の基礎, エンコード, デコード, ビジネスパソコンの基礎, ビジネス一般常識, フリーウェア
