Sub PrintByteTest() Dim s As String Dim b() As Byte s = "abcあいう" b = StrConv(s, vbFromUnicode) ' Shift_JIS GoSub print_byte Exit Sub print_byte: Dim i As Integer For i = 0 To UBound(b) Debug.Print Hex(b(i)) + " "; Next Return End Sub 結果
I was originally using some VBScript code from Antonin Foller: Base64 Encode VBS Function and Base64 Decode VBS Function. Searching Antonin's site, I saw he had some code for quoted printable encoding, using the CDO.Message object, so I tried that. Finally, I ported the code mentioned in Mark's answer to VBScript (also used some code from this SO question), and used the Stream___StringToBinary and
バッチのまとめTOPへ BASE64を使えば,バイナリのファイルをテキストデータ(英数字)に変換できる。 もちろん,元のファイルに戻す事もできる。 だから, 「ファイルのアップロード」は不要になる。 (ファイルではなく,文字列を書き込んでどこかに保存すればよい。) 「ファイルの添付」は不要になる。 (テキスト文字列をコピペするだけで,ファイルを送受信できる。) Base64とは http://ja.wikipedia.org/wiki/Base64 バイナリを英数字文字列に変換する。 メールの添付ファイル送信などの際に使われている技術。 データ量は約138%となる。 以下は,Windowsのバッチ(WSH)で バイナリのファイルを,BASE64の文字列に変換する。 BASE64の文字列を,バイナリのファイルに変換する。 ためのサンプルコード。 エンコード・デコードの両方とも,コマンドプロン
ダウンロード mdlSubstitutes.bas (10kb) VBE でインポートしやすいように拡張子 bas になっていますが、中身はただのテキストファイルです。 インポートではなくクリップボード経由でコピー/貼り付けする場合は、先頭行(Attribute VB_Name = "mdlSubstitutes.bas")を除いて標準モジュールにコピー/貼り付けしてください。 どうやってインポートしたらいいの? 使用方法 モジュールをインポート後は、クエリー上で使用したい関数名の前に "g" を付けて呼び出すことが出来ます。 式1: gReplace([会社名], "(株)", "株式会社") 使用上の注意 簡単な動作確認はしていますが、実際の運用で安定動作が保証されたものでも実績のあるものでもありません。利用する際には必ずテスト運用で動作確認した上で、個々の責任においてお使いください。
すべての Microsoft 製品 Global Microsoft 365 Teams Copilot Windows Surface Xbox セール 法人向け サポート ソフトウェア Windows アプリ AI OneDrive Outlook Skype OneNote Microsoft Teams PC とデバイス Xbox を購入する アクセサリ VR & 複合現実 エンタメ Xbox Game Pass Ultimate Xbox Live Gold Xbox とゲーム PC ゲーム Windows ゲーム 映画とテレビ番組 法人向け Microsoft Cloud Microsoft Security Azure Dynamics 365 一般法人向け Microsoft 365 Microsoft Industry Microsoft Power Platform W
どうも安易なアドバイス?をしてしまったようです。 こちらでも確認できました。申し訳なく思っています。 調べてゆくと Jet を使った SQL文では Replace関数は存在しない、との記述 http://www.accessclub.jp/bbs6/0007/das1585.html の後半 MSDN辺りに、JET のSQLで使える関数の一覧があればと思うのですが・・ SQLインジェクション対策と思われる SandBox 適用 http://support.microsoft.com/default.aspx?scid=kb;JA;239482 こちらでも、キーの値を変えてみましたが効果なし ※PCの再起動は行っておりませんので十分な検証とは言えません。 ですので、私の手に余りそうです。 RecordSetを開いて、Loopで回しながらEdit・UpDateするしか思いつきません。 スッキ
【エクセルVBAからのADO接続SQLでのReplace関数について】 本日ご回答頂きました方、情報不足の質問で申し訳ありませんでした。 再度ご質問させて頂きます。 エクセルVBAから実行するADOでのSQL文中のReplace関数についてです。 ①Dドライブに【DB.accdb】 ②上記DBに【Tbl】テーブル ③上記テーブルに【Prefec】フィールド(テキスト型) ④上記フィールドに4レコード(1.千葉県, 2.神奈川県, 3.滋賀県, 4.京都府) ◆Accessバージョン = 2013, 2007 双方で動作確認 = 同じ結果 └ AccessはDBとして利用(ADOの接続先) ◆Exceバージョン = 2013, 2010 双方で動作確認 └ 結果、Replace関数は2013に使用可能で2010は不可 ◆OS = Windows8.1, 32bit (Ex, Ac共32ビット
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く