论坛 › 『 谈天说地 』 › 查找并添加文本内容[适合ini的创建]

Hen5ei 发表于 2011-12-16 13:08:08

查找并添加文本内容[适合ini的创建]

本帖最后由 afan 于 2020-10-3 18:22 编辑

有什么欠缺的请完善哦.
#include <File.au3>

Global $rFilePath, $rArray
Global $rSearch      =
Global $rText      =

For $i = 1 To $rSearch
      If Not _FileReadToArray($rFilePath, $rArray) Then
                MsgBox(4096, "错误", "   错误代码:" & @error)
      EndIf

;~ ;StringInStr   ===> 检查某个字符串是否含有指定的子字符串.

      For $x = 1 To $rArray
                If StringInStr($rArray[$x], $rSearch[$i]) Then
                        _FileWriteToLine($rFilePath, $x, $rText[$i], 0)
                        ExitLoop
                EndIf
      Next
Next

zxxputian1 发表于 2011-12-16 13:16:22

谢谢楼主提供

jkq920 发表于 2011-12-16 16:50:09

来学习一下。

165235590 发表于 2011-12-16 21:32:02

来学习一下

sanmoking 发表于 2011-12-16 21:39:01

神秘兮兮的。。。

Ycxw2008 发表于 2011-12-16 22:28:06

先顶再看,养成尊敬楼主的习惯:)

湖南人 发表于 2011-12-17 02:18:16

dddddddddddddddddddddddd

asura 发表于 2011-12-17 08:30:52

{:face (356):}看下

jsgh1983 发表于 2011-12-17 08:32:25

这个很具有实用性！没事研究下！谢谢楼主共享！

y1751 发表于 2011-12-17 08:46:21

回复 1# Hen5ei


    谢谢楼主提供

weeks1 发表于 2011-12-17 09:21:24

谢谢楼主分享，我慢慢研究

menfan1 发表于 2011-12-17 12:18:06

看看啥内容？

Hen5ei 发表于 2011-12-17 13:24:38

找个放东西的地方

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


Global $rText = FileRead("1.txt")

$rArray = StringRegExp($rText ,'(?i)htm" target="_top">(.*?)<(?i)span class="style3">',3)
;~ MsgBox(0,0,$rArray)
MsgBox(0,0,UBound($rArray))
_ArrayInsert($rArray,0,UBound($rArray))
;~ _ArrayDisplay($rArray, "$avArray 原先的数据 _ArrayAdd()")
;~ FileWriteLine
If Not _FileCreate("New_B.txt") Then Exit

For $i = 1 To $rArray
        FileWriteLine("New_B.txt",$rArray[$i])
Next

MsgBox(0,0,0)

gzh888666 发表于 2011-12-19 23:03:34

我要看得是内荣，不放过一个源码！

driplus 发表于 2011-12-20 09:47:26

学习一下先

查看完整版本: 查找并添加文本内容[适合ini的创建]