字符串截取已解决

macran · 发表于 2018-9-5 12:07:42

本帖最后由 macran 于 2018-9-6 10:49 编辑

类似这样： "2018/8/23 15:44:17"的字符串，怎么把2018/8/23提取出来。空格好想不能分割。很久没用autoit了。这样的问题是不是很弱智啊。别喷！

skyfree · 发表于 2018-9-7 10:48:10

wu5cheng3 发表于 2018-9-6 12:11
skyfree 的代码变量名与方法名称好标准!~

AU3变量不区分变量类型，但最好自己心里有点数，否则写大点的程序时很麻烦。

h20040606 · 发表于 2018-9-5 12:43:28

StringSplit ( "2018/8/23 15:44:17", " ")

繁星 · 发表于 2018-9-5 13:06:56

\d+/\d+/\d+

skyfree · 发表于 2018-9-5 15:06:26

AutoItSetOption('MustDeclareVars', 1)

_Main()
Exit

Func _Main()
        
        Local $sDateTime = '2018/8/23  15:44:17'
        Local $sDate = ''
        
        Local $aTemp = StringRegExp($sDateTime, '^\d{4}/\d{1,2}/\d{1,2}', 3)
        If Not (@error) Then $sDate = $aTemp[0]
        
        If $sDate <> '' Then MsgBox(64, 'Date', $sDate)
        
        
EndFunc   ;==>_Main

skyfree · 发表于 2018-9-5 15:11:50

本帖最后由 skyfree 于 2018-9-5 15:13 编辑

AutoItSetOption('MustDeclareVars', 1)

#include <Date.au3>

_Main()
Exit

Func _Main()
        
        Local $sDateTime = '2018/8/23  15:44:17'
        Local $sDate = ''
        Local $aDatePart, $aTimePart

        _DateTimeSplit($sDateTime, $aDatePart, $aTimePart)
        If Not (@error) Then $sDate = $aDatePart[1] & '/' & $aDatePart[2] & '/' & $aDatePart[3]
        
        If $sDate <> '' Then MsgBox(64, 'Date', $sDate)
        
EndFunc   ;==>_Main

注意这种方法提取出来的日期可能和你原有书写方式不一致，例如如果你写 2018/08/23 提取后则是 2018/8/23。

229989799 · 发表于 2018-9-5 15:54:56

惊现天空老大

afan · 发表于 2018-9-5 19:32:57

如果只是这样的字符串，就不需要做其它判断了

StringRegExp('2018/8/23  15:44:17', '^\S+', 1)

顽固不化 · 发表于 2018-9-5 21:16:16

skyfree 发表于 2018-9-5 15:11
注意这种方法提取出来的日期可能和你原有书写方式不一致，例如如果你写 2018/08/23 提取后则是 2018/8/ ...

名人连出俩答案，佩服

顽固不化 · 发表于 2018-9-5 21:16:56

afan 发表于 2018-9-5 19:32
如果只是这样的字符串，就不需要做其它判断了

代码好精炼，五体投地

wu5cheng3_bak · 发表于 2018-9-6 12:11:45

skyfree 的代码变量名与方法名称好标准!~

gzh888666 · 发表于 2019-1-23 00:54:25

本帖最后由 gzh888666 于 2019-1-23 12:55 编辑

skyfree 发表于 2018-9-5 15:11
注意这种方法提取出来的日期可能和你原有书写方式不一致，例如如果你写 2018/08/23 提取后则是 2018/8/ ...

Local $Str = '2018/8/23 15:44:55'

Local $Test = StringRegExpReplace($str, '[^\S]+', ' ')；练手保证一下$aTimePart的正确性

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

[AU3基础] 字符串截取已解决

评分

[AU3基础] 字符串截取 已解决

评分

[AU3基础] 字符串截取已解决