【正規表現？】4行ごとにタグを挿入したいです

質問

お世話になります。
jedit Xにてhtmlコーディングをしております。
膨大な行数のリストタグを4行ごとに分割したいのですが、正規表現などで早くかつ正確に作業は可能なものでしょうか？
正規表現を勉強すれば良いのはわかっているのですが、緊急を要する仕事なもので、どなたかお知恵拝借頂けると大変たすかります。

<ul>
<li>ああああああああああ</li>
<li>いいいいいいいいいい</li>
<li>うううううううううう</li>
<li>ええええええええええ</li>
<li>おおおおおおおおおお</li>
<li>かかかかかかかかかか</li>
<li>きききききききききき</li>
<li>くくくくくくくくくく</li>
<li>けけけけけけけけけけ</li>
<li>ここここここここここ</li>
<li>ささささささささささ</li>
<li>しししししししししし</li>
<li>すすすすすすすすすす</li>
<li>せせせせせせせせせせ</li>
<li>そそそそそそそそそそ</li>
<li>たたたたたたたたたた</li>
</ul>

↓↓↓↓↓

<ul>
<li>ああああああああああ</li>
<li>いいいいいいいいいい</li>
<li>うううううううううう</li>
<li>ええええええええええ</li>
</ul>
<ul>
<li>おおおおおおおおおお</li>
<li>かかかかかかかかかか</li>
<li>きききききききききき</li>
<li>くくくくくくくくくく</li>
</ul>
<ul>
<li>けけけけけけけけけけ</li>
<li>ここここここここここ</li>
<li>ささささささささささ</li>
<li>しししししししししし</li>
</ul>
<ul>
<li>すすすすすすすすすす</li>
<li>せせせせせせせせせせ</li>
<li>そそそそそそそそそそ</li>
<li>たたたたたたたたたた</li>
</ul>

回答No.1

bvltiggeari · ベストアンサー

こんにちは！

こういうhoge回目に…というのはプログラムで組むことが
多いんじゃないかな～と思ってます。
（正規表現でもできなくなかったような気がしますが…）
で、Windowsを使ってると勝手に思い込んで
VBScriptで作成してみました。
（正規表現にこだわられていたらごめんなさい…）
以下の手順でいかがでしょうか？

１．以下をテキストエディタで書いてhoge.vbsという拡張子で保存

Option Explicit
On Error Resume Next

Dim objFSO ' FileSystemObject
Dim objFile1' ファイル読み込み用
Dim objFile2' ファイル書き込み用
Dim counter ' カウンタ

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
counter = 0
If Err.Number = 0 Then
Set objFile2 = objFSO.OpenTextFile("sccess.txt", 2, True)
Set objFile1 = objFSO.OpenTextFile("read.txt")
If Err.Number = 0 Then
Do While objFile1.AtEndOfStream <> True
objFile2.WriteLine objFile1.ReadLine
counter = counter + 1
If counter Mod 4 = 0 Then
objFile2.WriteLine "</ul>"
objFile2.WriteLine "<ul>"
End If
Loop
objFile1.Close
objFile2.Close
Else
WScript.Echo "ファイルオープンエラー: " & Err.Description
End If
Else
WScript.Echo "エラー: " & Err.Description
End If

Set objFile1 = Nothing
Set objFile2 = Nothing
Set objFSO = Nothing

２．4行目に入れたい内容をテキストに書いて
　　「read.txt」という名前で保存
　　（提示した<li>囲われてる全行のこと）

３．空（でなくてもいいけど）のテキストファイルを
　　「sccess.txt」という名前で保存
　　（※ read.txtとsccess.txtとhoge.vbsは同じフォルダに置くこと）

４．さっきのhoge.vbsをダブルクリック

これでsccess.txtというテキストに、変換された内容が
出力されていると思います。
後は微調整でしょうから、ご自身で手作業されて下さい。

何か便利そうだから自分用にとっておこっと(笑)

お礼

早々にアドバイス頂きありがとうございます！
早速試してみますね。
感謝感謝。

やはりプログラムの領域なんですね（汗）
当方、MacでWebデザイン+コーディング（静的ページ）がメインでして、プログラムに関してはまったくわからずで、エディターの置換機能で簡単に～なんて軽く考えてました。

補足

早速試してみました！
無事納品にこぎつけられそうです！
助かりました！ありがとうございます！！