查找文本里的一句话在这句话的下一行写入另外一句话

qq342252004

用AU3怎样查找文本里的一句话呢？如图:

[ 本帖最后由 qq342252004 于 2009-2-11 14:53 编辑 ]

sxd

_FileReadToArray
_ArraySearch

qq342252004

有例子吗？

qq342252004

请帮帮忙

大绯狼

[au3]#include <File.au3>
Dim $aArray
_FileReadToArray(@ScriptDir & "\1.txt", $aArray)
For $i = 1 To $aArray[0]
        $num = StringInStr($aArray[$i], "我在这里")
        If $num <> 0 Then
                MsgBox(0, 0, "查找的文字在第" & $i & "行第" & $num & "个字符开始")
        EndIf
Next[/au3]

sanhen

#include <array.au3>
$var=FileRead("1.txt")
$test=StringRegExp($var,"(?s)我在这里",3)
_ArrayDisplay($test,"test")

luckscy

这种一般用正则方便

qq342252004

能不能实现找到要找的内容的下一行写入另外一条内容？

大绯狼

[au3]#include <File.au3>
#include <Array.au3>

Dim $aArray
_FileReadToArray(@ScriptDir & "\1.txt", $aArray)
_ArrayDisplay($aArray)
For $i = 1 To $aArray[0]-1
        If $aArray[$i] = "我在这里" Then
;~                 MsgBox(0,0,$i)
                _ArrayInsert($aArray, $i+1,"新加入的行")
;~                 If @error Then ExitLoop
        EndIf
Next
_ArrayDelete($aArray, 0)
_FileWriteFromArray(@ScriptDir & "\2.txt", $aArray)[/au3]

qq342252004

查找文本里的一句话在这句话的下一行写入另外一句话

范统.贾

这个要学习已下的 ，灰常有用。

qq342252004

顶起，希望尽快得到解决。

大绯狼

不是已经解决了吗

qq342252004

大绯狼 你9楼的代码我试过了  这_ArrayInsert($aArray, $i+1,"新加入的行") 行不行啊

你用什么版本的AUTOIT？

大绯狼

3.1.1
有问题可以直接QQ找我