afan 发表于 2012-1-12 23:00:16

本帖最后由 afan 于 2012-1-12 23:04 编辑

回复afan


    是你说过再小也能看出来的,小文件也确实能看出效率差别,要不你上传个 ...
binghc 发表于 2012-1-12 22:34 http://www.autoitx.com/images/common/back.gif
你那个代码有误,@extended 所处的位置已经没有意义了~ 而且我又不用 SCITE 的,ConsoleWrite 害人。。。$sF = RegRead('HKLM\SOFTWARE\AutoIt v3\AutoIt', 'InstallDir') & '\Include\StructureConstants.au3'
$sOut = ''
$ts = TimerInit()
$iL = _FileLineFindKey($sF, 'ToolTip Structures')
$sOut &= 'StringRegExpReplace: ' & @TAB & TimerDiff($ts) & @TAB & $iL & @LF

$ts = TimerInit()
$iL = _FileLineFindKey1($sF, 'ToolTip Structures')
$sOut &= 'StringReplace: ' & @TAB & @TAB & TimerDiff($ts) & @TAB & $iL

MsgBox(0, '结果', $sOut)

Func _FileLineFindKey($sFileName, $sKey)
        Local $str = FileRead($sFileName)
        Local $iStart = StringInStr($str, $sKey)
        If @error Then Return SetError(1)
        Local $str1 = StringMid($str, 1, $iStart)
        StringRegExpReplace($str1, @CRLF, '')
        Return @extended + 1
EndFunc   ;==>_FileLineFindKey

Func _FileLineFindKey1($sFileName, $sKey)
        Local $str = FileRead($sFileName)
        Local $iStart = StringInStr($str, $sKey)
        If @error Then Return SetError(1)
        Local $str1 = StringMid($str, 1, $iStart)
        StringReplace($str1, @CRLF, '')
        Return @extended + 1
EndFunc   ;==>_FileLineFindKey

sgj584520 发表于 2012-1-13 12:59:36

学习学习,下载看看到底怎么样

sgj584520 发表于 2012-1-13 13:00:21

怪不得老是有问题呢,原来原因在这里

binghc 发表于 2012-1-14 13:00:11

回复 16# afan


    看来跟应用的文本有关系

fuldho 发表于 2012-1-19 17:57:54

看懂了,留个几号。

syhw2222 发表于 2012-1-25 23:36:32

向高手认真学习了!

Ycxw2008 发表于 2012-1-26 19:44:10

回复 16# afan
afan老大不用scite?那用的啥

afan 发表于 2012-1-28 20:34:09

回复 22# Ycxw2008


    就用记事本……

lsszmj 发表于 2012-1-29 12:52:46

A大真是牛人一个

Ycxw2008 发表于 2012-1-29 22:04:39

回复 23# afan


    你太强大了 Notepad?

afan 发表于 2012-1-29 22:22:02

回复 25# Ycxw2008


    就是用 Notepad.exe 记事本编写,可能习惯了记事本的简洁~

Ycxw2008 发表于 2012-1-30 09:55:06

回复 26# afan
最起码用Notepad2呀,最起码还有高亮{:face (198):}
受打击了/{:face (53):}

单毛线 发表于 2013-1-7 22:43:02

厉害向高手学习

ainizm 发表于 2013-6-2 23:44:30

学习。。。。。。。。。。。

Huiseyu 发表于 2015-4-4 01:21:53

回复afan




我反复测试,StringReplace都要比StringRegExpReplace快!你再试试?!{:face (280): ...
binghc 发表于 2012-1-12 22:20 http://www.autoitx.com/images/common/back.gif


    刚好需要,学习一下。
页: 1 [2] 3
查看完整版本: [已解决]怎么获取匹配字符串在文本的行数?