发新话题
打印

谁能做教做一下这小程序

本主题由 douces 于 2007-11-21 13:48 提升

谁能做教做一下这小程序

想做个小小的程序玩玩.希望有人写下..
是这样的.有个界面.上面有个输入框.框的旁边有个确认按钮.
在程序同目录下有个ini或txt 文件.
这个文本格式:
1=c:\123\1.exe
2=d:\321\3.exe
3=.................
比如:在程序的输入框输入1 按确定.他就会读取文本.执行1= (c:\123\1.exe)这个程序
输入2确定 他就会执行2=后面的程序.以此类推.
望有高手写一下.谢谢啦.

TOP

用shell来执行。
读文本的代码很容易写的呀,然后用shell来执行程序路径。代码自己写下,那样才能提高自己嘛!

TOP

呵~刚接触.不懂嘛.
哪位简练的说下啦...

TOP

你用的是vb.net?

TOP

额~是那个VB6.0

TOP

在按钮的click事件中添加如下代码
    '我们假设文件路径为abc.txt,现在读2的文件路径
    Dim FileNum As String '用于获取输入框中的数字的变量
    Dim FilePath As String '文件路径
    Dim strTemp As String '临时变量
    Dim strFile As String '获取所要启动的文件路径
   
    FileNum = "2" '这里获取的是2,当有输入框的时候这里是输入框的Text值
    FilePath = App.Path & "\abc.txt"
    Open FilePath For Input As #1
    Do Until EOF(1)
        Line Input #1, strTemp
        '分析读出的行,满足则退出
        'MsgBox Mid(strTemp, 1, Len(FileNum) + 1)
        If Mid(strTemp, 1, Len(FileNum) + 1) = FileNum & "=" Then
            strFile = Mid(strTemp, Len(FileNum) + 2) '获取文件路径
            Exit Do
        End If
        
    Loop
    Close #1
   
    If Dir(strFile) <> "" Then
        Shell (strFile)
    Else
        MsgBox "文件不存在" & vbCr & strFile
    End If

TOP

发新话题