This browser is no longer supported. Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
UTF-8 に BOM があれば、削除して、書き戻します。 utf8-bom.vbs ファイル... Option Explicit Const adTypeBinary=1 Const adTypeText=2 Const adSaveCreateOverWrite=2 Dim Path Dim Src Dim BOM Dim Buf Set Src=CreateObject("ADODB.Stream") Src.Open Src.Type=adTypeText Src.Charset="utf-8" Src.WriteText "" Src.Position=0 Src.Type=adTypeBinary BOM=CStr(Src.Read(3)) For Each Path In WScript.Arguments Src.LoadFromFile Path Buf=CStr(Sr
自分にとっての覚書です。 Excel VBAでテキストファイルを書き出すために、こんなマクロを組んでいました。 Dim n As Long n = FreeFile Open "C:\sample.html" For Output As #n Print #n, "テキスト" Close #nけれど、この方法だと、できあがったテキストファイルの文字コードはShift-JISになります。 Excelのデータから大量にHTMLを生成するVBAを組もうと思っていたのですが、今回作成したいファイルの文字コードはUTF-8。 テキストファイルを作成した後に、文字コードを変換するという手も考えましたが、ひと手間増えてしまいます。どうにかならんかと検索してみたところ、VBAで文字コードを指定してテキストファイルを読み書きするにはADODB.Streamを使えばよいということが分かりました。 [参考にした
VBS で文字コードを変換する ブラウザでサイトを開くことなく、プログラムからHTMLソースを取得する方法を「ホームページデータを取得する」で説明しましたが、ソースが Shift-JIS の場合 VBS では StrConv 関数が使えないためエラーになってしました。 その解決法をこのページで説明します。 要は、ADODB.Streamオブジェクトへ書き込んで書き出すだけです。 Dim objXML AS Object Dim strXMLDoc AS String Dim intRet AS Integer Dim strURL AS String Dim strKey AS String strURL = "xxxx.co.jp" strKey = "id=123&pass=abc" Set objXML = Server.CreateObject("MSXML2.ServerXMLH
【vbscriptで複数行コメント】 vbscriptで複数行をコメントアウトする方法を知りたいです。 VB6では、下記の方法で複数行コメントアウトできるようですが、vbscriptではコンパイルエラーとなってしまいます。 #If False Then から #End if 「'」「REM」では単一行コメントしかできないようです。
すべて Microsoft 製品 Microsoft 365 Office Windows Surface Xbox セール サポート ソフトウェア Windows アプリ OneDrive Outlook Skype OneNote Microsoft Teams PC とデバイス Xbox を購入する アクセサリ VR & 複合現実 エンタメ Xbox Game Pass Ultimate Xbox Live Gold Xbox とゲーム PC ゲーム Windows ゲーム 映画とテレビ番組 法人向け Microsoft Azure Microsoft Dynamics 365 Microsoft 365 Microsoft Industry データ プラットフォーム Power Platform 法人向けを購入する Developer & IT .NET Visual Studio
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く