Dim st As StringOpen "D:\AM123.txt"租隐 For Input As #121Do While Not EOF(121)Line Input #121, sIf InStr(s, "1.8227") = 0 Then st = st & s & vbNewLine '读入不包含1.8227的行LoopClose #121 '喊伍读完Open "D:\AM123.txt" For Output As #121Print #121, st '写入Close #121 安全起见，你先备郑型或份源文件
标签：VB,资料
版权声明：文章由 知识百问 整理收集，来源于互联网或者用户投稿，如有侵权，请联系我们，我们会立即处理。如转载请保留本文链接：https://www.zhshbaiwen.com/life/214433.html
