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

2140340.

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

呵呵，感谢！

帮忙看下这段代码能否简化一下

        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

可以用数组

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

35888894

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

2140340.

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