Life can only be understood backwards; but it must be lived forwards. -Soren Kierkegaard
〓いろんなものの置き場です。〓
純志のページ 更新日   

サンプル集


リンク

VBScriptの関数呼び出しの罠
VBScript入門

VBScript 実践編

  1.  html ファイルを作成する OL 編

    OL タグを付けた html ファイルを作成する。 cf. HTMLリファレンス

  2.  html ファイルを作成する Table 編

    上の応用で、table を作成する。 cf. VBScript 関数一覧

  3.  テキスト処理 漢数字をアラビア数字に

    民話編用スクリプト。桐に読ませるためのテキスト作成。漢数字生年月日をアラビア数字に変換

  4.  テキスト処理 1行読み込み3つの分類をして書き出す

    桐の琉球新報データベースから、年、月、日ごとに分けて、「見出し一覧」を作成。 cf. 明治・大正期 琉球新報

  5.  テキストファイルから全角、半角のカタカナを抜き出す

    正規表現 "([ァ-ヶー]|[ヲ-゚])+" で全角と半角のカタカナを検索、すべて抜き出しテキストに書き出す。最後の改行を消す。

  6.  テキスト整形

    テキスト整形、全角数字を半角に等の基本的な処理をしている。

  7.  画像ファイルの大きさ(幅 X 高さ)をピクセルで返す

    単独では使わず、ファイルパスを引数にして Arguments に渡す。GetDetailsOf でそのファイル属性を取得。

  8.  スペシャルフォルダーのアドレスを一覧表示

    各ユーザのデスクトップアドレスを取得するために作成、デスクトップをコピー先にするために。

  9.  フォルダのファイル一覧を取得

    フィル一覧をテキストに書き出す。サブフォルダも検索します。

  10.  ブラウザコンピュータを調べるため。ホスト名と使用ipアドレスも一覧で表示します。

    windows7にも対応。ホスト名一覧とipアドレスの一覧は対応関係にはありません、別々の表示です。

  11.  英単語辞書作成

    一次元配列 要素を split で分割して二次元配列的に 各要素は「英単語 \t 日本語意味」の組み合わせ。

  12.  正規表現テスト用

    正規表現の書き方チェック用に、また後方検索の動作確認用に。

  13.  ネットワークドライブの割り当て

    スタートアップフォルダに入れて使用。pingで確認してから、ドライブの割り当て。

  14.  民話OCR原稿の処理

    方言、共通語で分けて、ページ区切りごとに出力。

  15.  桐民話OCRデータベースで使用。

    カナに変換して、Runでテンポラリファイルを開く。

  16.  RGB値を16進数に変換

    16進数は2桁で表記。

  17.  ファイルを検索

    サブフォルダを絞り込んでいって(配列)、最後にファイル検索

  18.  上を改良

    コレクションで、全結果がEmptyになる場合を見落としていた。

  19.  語彙編

    桐から書き出したテキストファイルをIndesignに流し込む前にする処理を書いたvbsファイルです。

  20.  JavaScript Function

    文字に onclick を設定して、表示を切り替えるための関数


デスクトップのターゲットフォルダを取得する定番メニュー

Set objShell = Wscript.CreateObject("WScript.Shell")
Set objFS = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(objShell.SpecialFolders("Desktop") & "\CONVERT")

ターゲットフォルダのファイルを一つずつ読み込む定番メニュー

For Each objFile IN objFolder.Files
 テキストを一つずつオープンする → objFS.OpenTextFile(objFile.Path, ForReading)
Next


PageTop▲

Copyright © 2010 "Junshi Toyoda, Okinawa Japan"