悟农 发表于 2012-6-18 15:10:23

请教:提示框问题,我这个问题出在哪里?(解决)

本帖最后由 悟农 于 2012-7-16 13:12 编辑

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

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
===========================================

zerobin 发表于 2012-6-18 15:32:18

楼主看这个呀FileOpenDialogLocal $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 发表于 2012-6-18 16:24:08

还是2楼的方式好多了

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

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

悟农 发表于 2012-6-18 17:18:07


lchl0588 发表于 2012-6-18 16:52 http://www.autoitx.com/images/common/back.gif
====================
谢谢,我去试试!

悟农 发表于 2012-6-18 17:49:54


lchl0588 发表于 2012-6-18 16:52 http://www.autoitx.com/images/common/back.gif
====================
修改提示框还是不断的跳出

悟农 发表于 2012-6-18 18:00:11

楼主看这个呀FileOpenDialog
zerobin 发表于 2012-6-18 15:32 http://www.autoitx.com/images/common/back.gif
==================
没有懂起。

afan 发表于 2012-6-18 18:23:51

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

悟农 发表于 2012-6-18 18:45:32

这是要保存还是要打开文件?
LZ 这个主题标题不符合版规,内容也不清晰。要不是看到提问的语气态度早就关 ...
afan 发表于 2012-6-18 18:23 http://www.autoitx.com/images/common/back.gif
-----------------------
谢谢提醒。

ooxxgod 发表于 2012-6-18 20:19:46

我看不清楚内容要什么

wingking84 发表于 2012-6-18 23:26:56

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

xiaowo 发表于 2012-6-19 10:45:58

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


    有些看不懂,慢慢消化

悟农 发表于 2012-6-19 10:46:58

我看可能是楼主路径输入错误,一直不正确,所以一直弹出,或者是因为路径中有中文。
wingking84 发表于 2012-6-18 23:26 http://www.autoitx.com/images/common/back.gif
========================
解答,我试过路径是用英文字母,情况还是那样。
谢谢!
页: [1]
查看完整版本: 请教:提示框问题,我这个问题出在哪里?(解决)