请教：提示框问题，我这个问题出在哪里？（解决）

悟农

新手试做脚本就无法完成。
出现了提示框输入路径后，还不断的跳出来，提示输入内容。
请教：我这个问题出在哪里？
请老师指点指点我出的问题。
谢谢！
----------------------------------------------------------

Func Inputini()
        while Not FileExists($foxtraderpath&"\stkblock")
        $foxtraderpath=InputBox("请输入相关信息","大交易师路径")
If StringRight($foxtraderpath,1)="\" Then
        $foxtraderpath=StringMid($foxtraderpath,1,StringLen($foxtraderpath)-1)
        EndIf
WEnd
while Not FileExists($foxtraderpath&"\"&$foxtradername)
        $foxtradernametemp=""
        while $foxtradernametemp=""
        $foxtradernametemp=InputBox("请输入相关信息","大交易师文件名")
    WEnd
    $foxtradername=$foxtradernametemp
        if StringRight($foxtradername,4)=".exe" Then
                Else
                $foxtradername=$foxtradername&".exe"
        EndIf
WEnd
While Not FileExists($xiadanpath&"\xiadan.ini")
        $xiadanpath=InputBox("请输入相关信息","网上委托交易软件路径")
If StringRight($xiadanpath,1)="\" Then
        $xiadanpath=StringMid($xiadanpath,1,StringLen($xiadanpath)-1)
        EndIf
WEnd
While Not FileExists($xiadanpath&"\"&$xiadanname)
$xiadannametemp=""
while $xiadannametemp=""
        $xiadannametemp=InputBox("请输入相关信息","网上委托交易软件名")
WEnd
$xiadanname=$xiadannametemp
        if StringRight($xiadanname,4)=".exe" Then
                Else
                $xiadanname=$xiadanname&".exe"
        EndIf
===========================================
[img][/img]

zerobin

楼主看这个呀  FileOpenDialog

Local $message = "按下 Ctrl 或 Shift 键选择多个文件."

Local $var = FileOpenDialog($message, @WindowsDir & "", "图像文件 (*.jpg;*.bmp)", 1 + 4 )

If @error Then
    MsgBox(4096,"","没有选择文件!")
Else
    $var = StringReplace($var, "|", @CRLF)
    MsgBox(4096,"","你选择了:" & $var)
EndIf


; 多组筛选
$message = "按下 Ctrl 或 Shift 键选择多个文件."

$var = FileOpenDialog($message, @WindowsDir & "", "图像 (*.jpg;*.bmp)|视频 (*.avi;*.mpg)", 1 + 4 )

If @error Then
    MsgBox(4096,"","没有选择文件!")
Else
    $var = StringReplace($var, "|", @CRLF)
    MsgBox(4096,"","你选择了:" & $var)
EndIf

xms77

还是2楼的方式好多了

lchl0588

Dim $foxtraderpath
        while Not FileExists($foxtraderpath&"\stkblock")
        $foxtraderpath=InputBox("请输入相关信息","大交易师路径")
If StringRight($foxtraderpath,1)="" Then
        $foxtraderpath=StringMid($foxtraderpath,1,StringLen($foxtraderpath)-1)
        EndIf
        If $foxtraderpath="" Then ExitLoop ;这里有改动
WEnd

悟农

lchl0588 发表于 2012-6-18 16:52

====================
谢谢，我去试试！

悟农

lchl0588 发表于 2012-6-18 16:52

====================
修改提示框还是不断的跳出

悟农

楼主看这个呀  FileOpenDialog
zerobin 发表于 2012-6-18 15:32

==================
没有懂起。

afan

这是要保存还是要打开文件？
LZ 这个主题标题不符合版规，内容也不清晰。要不是看到提问的语气态度早就关闭主题了。
请LZ尽快修改标题及内容描述。顺便学习下置顶的版规贴。

悟农

这是要保存还是要打开文件？
LZ 这个主题标题不符合版规，内容也不清晰。要不是看到提问的语气态度早就关 ...
afan 发表于 2012-6-18 18:23

-----------------------
谢谢提醒。

ooxxgod

我看不清楚内容要什么

wingking84

我看可能是楼主路径输入错误，一直不正确，所以一直弹出，或者是因为路径中有中文。

xiaowo

不知道LZ取文件名的目的，应该完整路径更实用。建议：
这类东西应该首先有个界面，包含输入框与浏览按钮， ...
afan 发表于 2012-6-18 20:23

    有些看不懂，慢慢消化

悟农

我看可能是楼主路径输入错误，一直不正确，所以一直弹出，或者是因为路径中有中文。
wingking84 发表于 2012-6-18 23:26

========================
解答，我试过路径是用英文字母，情况还是那样。
谢谢！