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

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

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

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

Global $rFilePath, $rArray
Global $rSearch[11]       = [10,1,2,3,4,5,6,7,8,9,10]
Global $rText[11]       = [10,10,9,8,7,6,5,4,3,2,1]

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

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

      For $x = 1 To $rArray[0]
            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

看下

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[0]
        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

学习一下先

		自动登录	找回密码
密码			加入