论坛 › 已解决问题区 › 帮忙看下这段代码能否用for简化一下，各位大大帮忙，感激

2140340. 发表于 2009-12-1 17:24:40

帮忙看下这段代码能否用for简化一下，各位大大帮忙，感激

本帖最后由 2140340. 于 2009-12-2 10:47 编辑

再此之前在论坛和百度搜索了两天，看例子无数，未果，无奈只好求助各位大大

呵呵，感谢！

帮忙看下这段代码能否简化一下        Select
                Case GUICtrlRead($BFCombo1) ="C:"
                        $SRC="1"
                Case GUICtrlRead($BFCombo1) ="D:"
                        $SRC="2"
                Case GUICtrlRead($BFCombo1) ="E:"
                        $SRC="3"
                Case GUICtrlRead($BFCombo1) ="F:"
                        $SRC="4"
                Case GUICtrlRead($BFCombo1) ="G:"
                        $SRC="5"
                Case GUICtrlRead($BFCombo1) ="H:"
                        $SRC="6"
                Case GUICtrlRead($BFCombo1) ="I:"
                        $SRC="7"
                Case GUICtrlRead($BFCombo1) ="J:"
                        $SRC="8"
                Case GUICtrlRead($BFCombo1) ="K:"
                        $SRC="9"
                Case GUICtrlRead($BFCombo1) ="L:"
                        $SRC="10"
                Case GUICtrlRead($BFCombo1) ="M:"
                        $SRC="11"
                Case GUICtrlRead($BFCombo1) ="N:"
                        $SRC="12"
                Case GUICtrlRead($BFCombo1) ="O:"
                        $SRC="13"
                Case GUICtrlRead($BFCombo1) ="P:"
                        $SRC="14"
                Case GUICtrlRead($BFCombo1) ="Q:"
                        $SRC="15"
                Case GUICtrlRead($BFCombo1) ="R:"
                        $SRC="16"
                Case GUICtrlRead($BFCombo1) ="S:"
                        $SRC="17"
                Case GUICtrlRead($BFCombo1) ="T:"
                        $SRC="18"
                Case GUICtrlRead($BFCombo1) ="U:"
                        $SRC="19"
                Case GUICtrlRead($BFCombo1) ="V:"
                        $SRC="20"
                Case GUICtrlRead($BFCombo1) ="W:"
                        $SRC="21"
                Case GUICtrlRead($BFCombo1) ="X:"
                        $SRC="22"
                Case GUICtrlRead($BFCombo1) ="Y:"
                        $SRC="23"
                Case GUICtrlRead($BFCombo1) ="Z:"
                        $SRC="24"
                Case Else
        EndSelect

gapkiller 发表于 2009-12-1 17:35:18

可以用数组

Dim $Drv=["","C:","D:","E:",....]
For $i=1 to 24
    If GUICtrlRead($BFCombo1) = $Drv[$i] Then$SRC = $i
Next

35888894 发表于 2009-12-1 22:00:35

for $i=67 to 90
If GUICtrlRead($BFCombo1) = Chr($i)&":" Then$SRC = string($i-66)
next
这样似乎更简单些...

2140340. 发表于 2009-12-2 10:46:42

解决了，呵呵，非常感谢楼上二位！

查看完整版本: 帮忙看下这段代码能否用for简化一下，各位大大帮忙，感激