论坛 › 已解决问题区 › 查找文本里的一句话在这句话的下一行写入另外一句话

qq342252004 发表于 2009-2-6 12:47:01

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

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

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

sxd 发表于 2009-2-6 13:07:12

_FileReadToArray
_ArraySearch

qq342252004 发表于 2009-2-6 13:38:41

有例子吗？

qq342252004 发表于 2009-2-7 10:57:00

请帮帮忙:face (20):

大绯狼 发表于 2009-2-7 11:13:51

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

sanhen 发表于 2009-2-7 14:31:37

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

luckscy 发表于 2009-2-7 15:30:47

这种一般用正则方便

qq342252004 发表于 2009-2-8 08:18:27

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

大绯狼 发表于 2009-2-8 09:29:01

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

Dim $aArray
_FileReadToArray(@ScriptDir & "\1.txt", $aArray)
_ArrayDisplay($aArray)
For $i = 1 To $aArray-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)

qq342252004 发表于 2009-2-8 09:58:35

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

范统.贾 发表于 2009-2-10 13:06:43

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

qq342252004 发表于 2009-2-10 14:24:11

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

大绯狼 发表于 2009-2-10 15:23:01

不是已经解决了吗

qq342252004 发表于 2009-2-10 22:47:29

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

你用什么版本的AUTOIT？

大绯狼 发表于 2009-2-10 23:00:36

3.1.1
有问题可以直接QQ找我

查看完整版本: 查找文本里的一句话在这句话的下一行写入另外一句话