找回密码
 加入
搜索
查看: 1989|回复: 2

[AU3基础] [已解决]請問要如何刪除txt 包含關鍵字"整行"

  [复制链接]
发表于 2017-6-5 14:22:28 | 显示全部楼层 |阅读模式
本帖最后由 ipmitool 于 2017-6-26 07:58 编辑










請問要如何刪除txt關鍵字整行
比如抓到 txt 裡面有 8組 GPU UUID 就刪除 8筆 整行
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <Excel.au3>
#include <MsgBoxConstants.au3>
#include <FileConstants.au3>
#include <Date.au3>
#include <GuiStatusBar.au3>

#include <Constants.au3>
#include <GUIConstantsEx.au3>
#include <FontConstants.au3>
#include <StaticConstants.au3>
#include <GuiConstants.au3>





$path=@ScriptDir

FileCopy("nvidia-smi-a.txt","nvidia-smi-a-backup.txt",$FC_OVERWRITE + $FC_CREATEPATH)

$List = _FileListToArray($path, "nvidia-smi-a-backup.txt")



For $element = 1 to $List[0] step 1
For $line = 1 to 3 Step 1
_FileWriteToLine ($List[$element], 2, "", 1)
Next




_ReplaceStringInFile ($List[$element], "XXX", _FileWriteToLine($List[$element],1,"",1), 0,1 )
_ReplaceStringInFile ($List[$element], "XXX", "XXX02", 0, 1 )
_ReplaceStringInFile ($List[$element], "XXX", "XXX03", 0, 1 )
_ReplaceStringInFile ($List[$element], "        ", @CRLF, 0, 1 )

Next

;sleep(500)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×

评分

参与人数 1金钱 -10 收起 理由
afan -10

查看全部评分

发表于 2017-6-5 23:29:24 | 显示全部楼层
Local $sKey = 'GPU UUID'
Local $sFile = @ScriptDir & '\1.txt'
Local $open = FileOpen($sFile, FileGetEncoding($sFile))
Local $sRead = FileRead($open)
FileClose($open)
$sRead = StringRegExpReplace($sRead, '(\V*?' & $sKey & '\V*\v*)', '')
$open = FileOpen($sFile, 2)
FileWrite($open, $sRead)
FileClose($open)
发表于 2017-6-15 10:23:52 | 显示全部楼层
学习了......
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-24 07:42 , Processed in 0.084466 second(s), 28 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表