私有子命令1_Click（）
閱讀文件的內容
將load bytes（）dim為Byte
打開二進制文件“E:\1.txt”作為#1
ReDim load bytes（1到LOF（1））
獲取#1，LoadBytes
關閉#1
arr = Split（StrConv（load bytes，vbUnicode），vbCrLf）
查找第壹次出現的S17000。
對於i1 = 0到下界（arr）
if InStr（arr（I 1），“s 17000“）》；0然後退出
然後
從S17000首次出現的下壹個位置開始。
找到S17000，並從當前的四個前進更改為Chr（27），即ESC鍵，這在文本文件中是不可能出現的。
對於i2 = i1 + 1到下界（arr）
if InStr（arr（I2），“s 17000“）》；那就0
對於j = i2 - 4至i2
如果j & gt= i1然後arr（j）= Chr（27）
然後
如果j & lt= UBound（arr）Then arr（j）=““
如果…就會結束
然後
打開“E:\2.txt”作為#1輸出
Print #1，Replace（Join（arr，vbCrLf），Chr（27）& amp；”“）vbCrLf
關閉#1
末端接頭