[已解决]求助大家 數值分割 分別寫入 3個框內 該如何?

tcpuuu

7123.7526.5236(這個點 是 數字鍵0 旁邊那個.)
輸入之後 按 1BUTTER
第一個 . 左邊4位數 寫入底下第1個框
第二......................
第三................................
不是都固定4位數
例如:  721.5236554.32655
也可變成
721    5236554   32655

GUICreate('EDIE',400,300)       
$A1 = GUICtrlCreateInput("",5,5,220,23)
$A2 = GUICtrlCreateInput("",5,30,50,23)
$A3 = GUICtrlCreateInput("",70,30,50,23)
$A4 = GUICtrlCreateInput("",135,30,50,23)

For $i = $A1 to $A4
GUICtrlSetFont($i,12)
Next

$1But= GUICtrlCreateButton("輸入數值",280,4,66,30)

GUISetState()
While 1

        $msg = GUIGetMsg()
        Switch $msg
                Case -3
                        Exit


Case $1But



EndSwitch
WEnd

lpxx

是这样？

                Case $1But
                        $p = StringSplit(GUICtrlRead($A1), Chr(46), 1)
                        GUICtrlSetData($A2, $p[1])
                        GUICtrlSetData($A3, $p[2])
                        GUICtrlSetData($A4, $p[3])
        EndSwitch

tcpuuu

謝謝LPXX  我的問題 已解決

高手真多

請問
$p = StringSplit(GUICtrlRead($A1), Chr(46), 1)
Chr(46), 1 是什麼意思
取4~6位數 ?   1是?

user3000

謝謝LPXX  我的問題 已解決

高手真多
tcpuuu 发表于 2012-1-22 16:27

唉, 其实是你.....还太菜啊, 大哥!
看你注册时间, 跟你水平一比... 惨不忍睹!

tcpuuu

再請教一下.....

IF   $A1框裡沒有2個點  THEN
MsgBox(48,"","尚未輸入或格式錯誤",3)
ELSE
$p = StringSplit(GUICtrlRead($A1), Chr(46), 1)
                        GUICtrlSetData($A2, $p[1])
                        GUICtrlSetData($A3, $p[2])
                        GUICtrlSetData($A4, $p[3])
ENDIF
=======================================
以上這段 該如何敘述?

user3000

再請教一下.....

IF   $A1框裡沒有2個點  THEN
MsgBox(48,"","尚未輸入或格式錯誤",3)
ELSE
$p = Str ...
tcpuuu 发表于 2012-1-22 17:35

   

If not StringInStr(GuiCtrlRead($A1), '.', 0, 2) Then ; 保证至少有两个 '.'
            If not StringRegExp(GuiCtrlRead($A1), '\d+\.\d+\.\d+') Then ; 最准确的判断...

tcpuuu

摁! 這個好
感謝 各位 解說

jtw

学习了....................................

49666684

学习了....................................

chinafla

还可以做成自动填写

yyy910

这个是不是有点像注册码得感觉？