Excel VBAの2つの文字列間の行のセットを削除する

Question

メモ帳のファイルを読み込む作業があり、それぞれのファイルで文字列 "dynamics"と "dynamics"の間にある行のセットを削除する必要があります"エンドダイナミクス"と同様にそれらの2つの文字列を削除します。

それが発生したどこ添付された画像は、テキストファイルに（ダイナミクスダイナミクスを終了する–任意のコンテンツは、これら2つの境界と存在していてもよい）、除去する必要のある部分を示しています。

L3.3 

resizeText 1 
zoomLines 0 
zoomArrows 0 
doLasso 1 
opaqueMove 1 
selectDistance 30 
adjustFonts 1 
doubleBuffer 1 
clipping 1 
nCopyAreas 0 
drawTextLimit 0.5 
saveObjects 1 
canvasBackground #050048007800 
defaultForeground #000000000000 
layers 1 
layerName 0 0 
layerName 1 1 
layerName 2 2 
layerName 3 3 
layerName 4 4 
layerName 5 5 
layerName 6 6 
layerName 7 7 
layerName 8 8 
layerName 9 9 
layerName 10 10 
layerName 11 11 
layerName 12 12 
layerName 13 13 
layerName 14 14 
layerName 15 15 
layerName 16 16 
layerName 17 17 
layerName 18 18 
layerName 19 19 
layerName 20 20 
layerName 21 21 
layerName 22 22 
layerName 23 23 
layerName 24 24 
layerName 25 25 
layerName 26 26 
layerName 27 27 
layerName 28 28 
layerName 29 29 
layerName 30 30 
layerName 31 31 
gend 

N 0 
P 0 0 
T -1 
R 0 0 
0 
    0 4 1 0 
    Name #WVP 
    0 1 1 
! 
27e 
054878 
-1-1-1 
0 
0 
0 
0 0 
dynamics 
script 
//***GblSymDetails*** 
;DTLS; GSA_TEXT = "CIUXX" 
//***ApplReplace*** 
//GEMTool = 1 
// = ASPECTLINK 
end script 
end dynamics 
    0 0 1920 1080 0 0 
N 2 
P 34.7792 181.549 
T 2 21071 1 0 0 
0 0 
R 0 0 
0 
    0 0 3 0 
    Name STAT5495 
    0 1 1 
! 
27e 
a5a5a5 
a5a5a5 
0 
0 
0 
2 0 
    0 0 0 
    0 0 0 0 1 
    4 
    0 12.7627 
    11.5724 0 
    192.874 0.255264 
    185.159 12.3798 
N 4 
P 221.604 181.887 
T 2 21071 1 0 0 
0 0 
R 0 0 
0 
    0 0 5 0 
    Name STAT5496 
    0 1 1 
! 
27e 
7c7c7c 
7c7c7c 
0 
0 
0 
2 0 
dynamics 
script 
func ip_FillColor() { 
return FILLCOLOR; 
} 
func ip_LineColor() { 
return LINECOLOR; 
} 
func ip_TEXT() { 
return TEXT; 
} 
func BackColor() { 
return RGB(124,124,124); 

} 


func ForeColor() { 
return RGB(124,124,124); 

} 












// when ... 
object.background = BackColor(); 
object.foreground = ForeColor(); 
end script 
end dynamics 
    0 0 0 
    0 0 0 0 1 
    4 
    0 11.6149 
    6.04944 0 
    6.04944 54.445 
    0 72.5933 
N 6 
P 81.7124 181.888 
T 2 21071 1 0 0 
0 0 
R 0 0 
0 
    0 0 7 0 
    Name STAT5497 
    0 1 1 
! 
27e 
616161 
616161 
0 
0 
0 
2 0 
dynamics 
script 
func ip_FillColor() { 
return FILLCOLOR; 
} 
func ip_LineColor() { 
return LINECOLOR; 
} 
func ip_TEXT() { 
return TEXT; 
} 
func BackColor() { 
return RGB(97,97,97); 

} 


func ForeColor() { 
return RGB(97,97,97); 

} 












// when ... 
object.background = BackColor(); 
object.foreground = ForeColor(); 
end script 
end dynamics 
    0 1 0 
    0 0 0 0 1 
    72 
    93.8536 5.86588 

Answer 1

次のコードのようなものです。すべてのファイルをフォルダとDIRにダンプするコードを追加して、読み込み、テキストのストリッピング、出力ファイルの自動保存を行うことができます。ファイルの数に応じて、時間効率が良いかどうかは分かりません。

Sub cleantext() 
Dim lineOfText As String 
Dim skipLines As Boolean 
'Open files for writing 
Open "D:\inputfile.txt" For Input As #1 
Open "D:\outputfile.txt" For Output As #2 

skipLine = False 
Do Until EOF(1) 
    Line Input #1, lineOfText 
    If lineOfText = "dynamics" Then skipLines = True 
    If lineOfText = "end dynamics" Then skipLines = False 
    If Not skipLines And Not lineOfText = "end dynamics" Then Print #2, lineOfText 
Loop 
Close #1 
Close #2 
End Sub