[已解决]正则表达式提取特定内容,请大神指导

zhouhaijin · 发表于 2015-1-25 02:38:54

本帖最后由 zhouhaijin 于 2015-1-25 11:46 编辑

Decompress, compress len=[55], orig len=[96] CFtdcUserApiImplBase::HandlePackage FTDC PACKAGE HEADER Version[0X08],Chain[0X4C],SequenceSeries[0],TransactionId[0X0000F103],SequenceNumber[0] FieldCount[2],FTDCContentLength[76],RequestId[0] FTDC PACKAGE CONTENT START FIELD [CFTDMarketDataUpdateTimeField] START [InstrumentID][0][IF1502] [UpdateTime][0][01:42:35] [UpdateMillisec][2][0] FIELD [CFTDMarketDataUpdateTimeField] END FIELD [CFTDMarketDataBestPriceField] START [BidPrice1][4][3609.600000] [BidVolume1][2][50] [AskPrice1][4][3609.800000] [AskVolume1][2][50] FIELD [CFTDMarketDataBestPriceField] END FTDC PACKAGE CONTENT END

取红色部分和前面[的英文]，前面的英文是固定的，最好是根据前面的英文取后面的值

Huiseyu · 发表于 2015-1-25 07:24:24

已收藏，等大大来上课 ..

athland5013 · 发表于 2015-1-25 07:44:02

\[([a-zA-Z0-9\s]+)\]\[\d\]\[(.*?)\]

afan · 发表于 2015-1-25 10:17:34

Local $Str = ''
$Str &= 'Decompress, compress len=[55], orig len=[96]                                    CFtdcUserApiImplBase::HandlePackage                                                     FTDC PACKAGE HEADER                                                             Version[0X08],Chain[0X4C],SequenceSeries[0],TransactionId[0X0000F103],SequenceNumber[0]                                                                         FieldCount[2],FTDCContentLength[76],RequestId[0]                                FTDC PACKAGE CONTENT START                                                      FIELD [CFTDMarketDataUpdateTimeField] START                                                     [InstrumentID][0][IF1502]                                                       [UpdateTime][0][01:42:35]                                                       [UpdateMillisec][2][0]                                          FIELD [CFTDMarketDataUpdateTimeField] END                                       FIELD [CFTDMarketDataBestPriceFi'
$Str &= 'eld] START                                                      [BidPrice1][4][3609.600000]                                                     [BidVolume1][2][50]                                                             [AskPrice1][4][3609.800000]                                                     [AskVolume1][2][50]                                             FIELD [CFTDMarketDataBestPriceField] END                                        FTDC PACKAGE CONTENT END' & @CRLF & @CRLF & @CRLF

MsgBox(0, '', _GetVal($str, 'InstrumentID') & @LF & _
                _GetVal($str, 'UpdateTime') & @LF & _
                _GetVal($str, 'UpdateMillisec') & @LF & _
                _GetVal($str, 'BidPrice1') & @LF & _
                _GetVal($str, 'BidVolume1') & @LF & _
                _GetVal($str, 'AskPrice1') & @LF & _
                _GetVal($str, 'AskVolume1'))

Func _GetVal($str, $sName)
        Local $aSR = StringRegExp($str, '\[' & $sName & '\]\[\d+\]\[(.+?)\]', 1)
        If Not @Error Then Return $aSR[0]
EndFunc   ;==>_GetVal

半芯竹 · 发表于 2015-1-25 10:34:54

是想要这样的效果么？？？

#include <Array.au3>
Local $file = FileOpen(@ScriptDir&"\1.txt", 0)
If $file = -1 Then Exit
Local $chars = FileRead($file)
If @error = -1 Then Exit
Local $res = StringRegExp($chars,"\w{9,15}(?=\]\[)|(?:\[\d\]\[)(\w+.*?)(?=]\s)",3)
If Not @error Then _arraydisplay($res,'test')
FileClose($file)

乱写一通，大神勿贱笑啊。。

zhouhaijin · 发表于 2015-1-25 11:44:46

回复 4# afan

谢谢超版

zhouhaijin · 发表于 2015-1-25 11:45:09

回复 3# athland5013

谢谢帮忙

zhouhaijin · 发表于 2015-1-25 11:48:29

回复 5# 半芯竹

谢谢

zhouhaijin · 发表于 2015-1-25 11:57:44

回复 4# afan

就是想要这个效果

雨林GG · 发表于 2015-1-26 08:12:58

进帖学习，天天向上~

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

[效率算法] [已解决]正则表达式提取特定内容,请大神指导

相关帖子

评分

评分

本帖子中包含更多资源

评分