山寨中间文本批量提取工具au3版(含源代码)

gamewfj

http://www.52pojie.cn/thread-269844-1-1.html 这个帖子里已经发布了一个了，看到有人说会报错，自己就随便写了一个类似的

会一点AU3的菜鸟，班门弄斧显摆一下，高手请无视
逻辑比较混乱，将就用吧

左边的编辑框为源
中间
上面的输入框为起始字符，只支持单个字符，不支持多个字符
下面的是终止字符，只支持单个字符，不支持多个字符

按钮是执行

右边的是结果框

[Asm] 纯文本查看 复制代码

#include <String.au3>
#include <String.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 943, 508, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Edit1 = GUICtrlCreateEdit("", 10, 20, 255, 479)
$Input1 = GUICtrlCreateInput("1", 290, 50, 121, 21)
$Input2 = GUICtrlCreateInput("3", 290, 110, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 320, 170, 75, 25)
GUICtrlSetOnEvent(-1, "Button1Click")
$Edit2 = GUICtrlCreateEdit("", 450, 20, 275, 479)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
    Sleep(100)
WEnd
Func Button1Click()
    $b = StringRegExp(GUICtrlRead($Edit1), '\V+', 3)
    $D = ''
    For $i = 0 To UBound($b) - 1
        $a = _StringBetweentemp($b[$i], GUICtrlRead($Input1), GUICtrlRead($Input2))
        If $a <> '' Then
            $D &= $a & @CRLF
        Else
            $D &= $b[$i] & @CRLF
        EndIf
    Next
    GUICtrlSetData($Edit2, $D)
EndFunc   ;==>Button1Click
Func Form1Close()
    Exit
EndFunc   ;==>Form1Close
Func _StringBetweentemp($a, $b, $C)
    $textarray = StringSplit($a, '')
    _ArrayDelete($textarray, 0)
    $iKeyIndex = _ArraySearch($textarray, $b)
    $text = ''
    If Not [url=home.php?mod=space&uid=209627]@Error[/url] Then
        For $i = 0 To $iKeyIndex
            _ArrayDelete($textarray, 0)
        Next
        $iKeyIndex1 = _ArraySearch($textarray, $C)
        If Not @error Then
            If $iKeyIndex1 > 0 Then
                For $j = 0 To $iKeyIndex1 - 1
                    $text &= $textarray[$j]
                Next
            Else
                $text1 = $textarray[0]
                _ArrayDelete($textarray, 0)
                $iKeyIndex2 = _ArraySearch($textarray, $C)
                If Not @error Then
                    $text &= $text1
                    For $j = 0 To $iKeyIndex2 - 1
                        $text &= $textarray[$j]
                    Next
                EndIf
            EndIf
        EndIf
    EndIf
    Return $text
EndFunc   ;==>_StringBetweentemp

test.rar (382.23 KB, 下载次数: 67)

2014-7-9 22:46 上传

点击文件名下载附件

编译好的程序，AU3的软件可能会被报毒，请斟酌。 怕的话自己拿源码编译一下就可以了

lvjianhlj

大师级人马啊~~~~~~~~~求带

gamewfj

youbudenibuxiao 发表于 2014-7-9 23:24
被撞到咯  有时间改进下单字符 更实用些

嗯，看这个帖子的反响吧，支持的人多就继续学习想办法弄支持多字符的

youbudenibuxiao

被撞到咯  有时间改进下单字符 更实用些

gamewfj

52js8 发表于 2014-7-9 23:21
还是感觉易语言简单。。。。

难者不会，会者不难
我的易语言就连门都没看到。
AU3的优点是可以照着帮助文件写

俪豪工作室

会易语言的都知道的。。。这个其实很简单  。。。  呵呵。。。。

小捷

支持原创哦  吾爱有你更精彩