tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル .netでbatch
投稿日: 2006/10/04(Wed) 17:01
投稿者へたれ
すいません。初めて投稿します。

.netでbatchを作成しているのですがうまくいきません。

pathの中にあるhtmlファイルとサブフォルダを検索し、

htmlファイルの場合は<body>タグに

ロジックを追加して、上書き保存。その際に拡張子をbkにしてバックアップも作成する。

んで最後に処理件数を表示するのですが、

htmlにロジックを追加するところでうまく追加が出来ずに困っています。

Dim intStart As Long
Dim intEnd As Long
Dim strRes As String
Dim AfterHTML As String
Dim StrChWord1 As String = "oncontextmenu='alert('右クリックは禁止です');return false' onCopy='alert(' コピーはできません');return false'"
Dim StrChWord2 As String = "<style type='text/css'>@media print  { body { display:   none; }}</style>"

intStart = InStr(strHTML, "<body")
intEnd = intStart + (InStr(strHTML, ">"))
strRes = strHTML.Substring(intStart, intEnd - intStart + intMid)
AfterHTML = strHTML.Replace(strRes, strRes & StrChWord1 & StrChWord2)

ちなみにhtmlの中身は
<html>
<head>
</head>
<body link=blue vlink=purple class=xl61>
    <table width=500>
        <tr>
            <td>xxx</td>
        </tr>
    </table>
</body>
</html>

説明下手で分かり辛いかもしれませんが…
分かる方がいらっしゃったらご指導願います。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。