#Include <File.au3>
$IniFile = "Part.Txt" ;文本路径
$Lines = _FileCountLines($IniFile) ;读取文本行数
For $i=1 To $Lines-1 ;循环
$ReadFile=FileReadLine($IniFile,$i) ;第1行开始读取
If $ReadFile='' Then ExitLoop ;文本空退出
If stringinstr($ReadFile,":") Then ;返回带‘:’号的字符行
FileWriteLine("new.txt", $ReadFile) ;写入新文本
EndIf
NEXT