你没有kii 发表于 2019-1-21 10:27:37

请教TXT搜索替换完后怎么插入新的内容并保存(已解决)

本帖最后由 你没有kii 于 2019-1-31 15:09 编辑

          <setting name="agc_mode" value="1"/>
          <setting name="dtx_mode" value="0"/>
          <setting name="vad_level" value="1"/>
          <setting name="echo_control" value="0"/>
          <setting name="noise_suppression" value="0"/>
原文字 需改为
          <setting name="agc_mode" value="0"/>
          <setting name="dtx_mode" value="0"/>
          <setting name="vad_level" value="1"/>
          <setting name="echo_control" value="1"/>
          <setting name="noise_suppression" value="1"/>
现用的代码是
$myFile = "D:\桌面\测试.txt"
$content = FileRead($myFile)
Local $text = StringReplace($content,'<setting name="agc_mode" value="1"/>','<setting name="agc_mode" value="0"/>')
Local $text1 = StringReplace($text,'<setting name="echo_control" value="0"/>','<setting name="echo_control" value="1"/>')
Local $text2 = StringReplace($text1,'<setting name="noise_suppression" value="0"/>','<setting name="noise_suppression" value="1"/>')
MsgBox(0, "新字符串为:", $text2)
能输出我需要的结果但无法保存到TXT文件里。


gzh888666 发表于 2019-1-21 12:35:28

本帖最后由 gzh888666 于 2019-1-21 13:54 编辑

Global Const $myFile = "D:\桌面\测试.txt"

Example($myFile, '<setting name="agc_mode" value="1"/>', '<setting name="agc_mode" value="0"/>')
Example($myFile, '<setting name="echo_control" value="0"/>', '<setting name="echo_control" value="1"/>')
Example($myFile, '<setting name="noise_suppression" value="0"/>', '<setting name="noise_suppression" value="1"/>')
Func Example($File, $1, $2)
      Local $sFileRead = StringReplace(FileRead($File), $1, $2)
      Local $hFileOpen = FileOpen($File, 2)
      FileWrite($hFileOpen, $sFileRead)
      FileClose($hFileOpen)
EndFunc   ;==>Example

你没有kii 发表于 2019-1-21 13:45:01

gzh888666 发表于 2019-1-21 12:35


谢谢老板 ,搞定。11

dalao 发表于 2019-1-28 21:57:14

学习一下!!!!
页: [1]
查看完整版本: 请教TXT搜索替换完后怎么插入新的内容并保存(已解决)