论坛 › 已解决问题区 › 那位大虾帮忙看看 要加什么才能去掉" "呢

刘强 发表于 2009-9-16 16:18:46

那位大虾帮忙看看 要加什么才能去掉" "呢

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$file = FileOpen("110.txt", 0)
If $file = -1 Then
    MsgBox(0, "错误", "不能打开文件.")
    Exit
EndIf
Dim $lines1
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
        $lines1 &= $line&"|"
Wend
FileClose($file)
$first=FileReadLine("110.txt",1)
$file = FileOpen("111.txt", 0)
If $file = -1 Then
    MsgBox(0, "错误", "不能打开文件.")
    Exit
EndIf
Dim $lines
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
        $lines &= $line&"|"
Wend
FileClose($file)
$first=FileReadLine("111.txt",1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("选择", 337, 143, 238, 133)
$Combo1 = GUICtrlCreateCombo($first, 88, 26, 177, 5)
GUICtrlSetData(-1, $lines1, "项目3")
$Combo2 = GUICtrlCreateCombo($first, 88, 56, 177, 25)
GUICtrlSetData(-1, $lines, "项目3")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

下边是110.txt的内容,我只想显示0.0      不想让他显示   "   "         那位大虾帮帮忙改一下
"0.0"
"0.0"
"0.0"
"0.0"
"0.0"
下边是111.txt的内容
"1.1"
"1.1"
"1.1"
"1.1"
"1.1"

刘强 发表于 2009-9-16 16:38:52

本人刚学 最好帮我改好发上来 小弟在此先谢谢了

afan 发表于 2009-9-16 16:39:31

你这是要干什么，有点绕

afan 发表于 2009-9-16 16:45:44

是不是这意思：#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$file = FileOpen("110.txt", 0)
If $file = -1 Then
        MsgBox(0, "错误", "不能打开文件.")
        Exit
EndIf
Dim $lines1 = ''
While 1
        $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
        $lines1 &= StringReplace($line, '"', '') & '|'
WEnd
FileClose($file)
$first0 = StringReplace(FileReadLine("110.txt", 1), '"', '')
$file = FileOpen("111.txt", 0)
If $file = -1 Then
        MsgBox(0, "错误", "不能打开文件.")
        Exit
EndIf
Dim $lines = ''
While 1
        $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
        $lines &= StringReplace($line, '"', '') & '|'
WEnd
FileClose($file)
$first = StringReplace(FileReadLine("111.txt", 1), '"', '')

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("选择", 337, 143, 238, 133)
$Combo1 = GUICtrlCreateCombo($first0, 88, 26, 177, 5)
GUICtrlSetData(-1, $lines1, "项目3")
$Combo2 = GUICtrlCreateCombo($first, 88, 56, 177, 25)
GUICtrlSetData(-1, $lines, "项目3")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

刘强 发表于 2009-9-16 17:00:24

谢谢啊 问题已经解决   还有个小问题 就是怎么把这贴变成已解决问题呢

afan 发表于 2009-9-16 19:36:40

谢谢啊 问题已经解决   还有个小问题 就是怎么把这贴变成已解决问题呢
刘强 发表于 2009-9-16 17:00 http://www.autoitx.com/images/common/back.gif
这个问题我解决不了~

刘强 发表于 2009-9-17 15:28:07

是不是要版主放到已解决里边去呢

kn007 发表于 2009-9-17 15:45:14

搞定了，下次麻烦告知下

刘强 发表于 2009-9-19 09:54:54

好的 下次通知你

查看完整版本: 那位大虾帮忙看看 要加什么才能去掉" "呢