根据文本文档判定的问题

[sofiazhou]

请问一下。。。。
我有个文本文档set.txt
我实现这样的代码该如何写？
读取 set.txt的第一行
如果 第一行的值为1 则msgbox"1"
如果第一行的值为2 则msgbox"2"
如果第一行的值为3 则msgbox"3"
请不吝赐教。

[shakoe]

Open “set.txt ” For Output As #1
dim a as string
lineinput #1,a
if a="1" then
msgbox 1
endif

lineinput #2,a
if a="2" then
msgbox 2
endif


lineinput #3,a
if a="3" then
msgbox 3
endif

close #1

[shakoe]

错错错

Open “set.txt ” For Output As #1
dim a as string
lineinput #1,a
if a="1" then
msgbox 1
endif

lineinput #1,a
if a="2" then
msgbox 2
endif


lineinput #1,a
if a="3" then
msgbox 3
endif

close #1

[zzyong00]

dim str1 as string
open "set.txt" for input as #1
line input #1 , str1
msgbox str1
close #1

[zzyong00]

呵呵，有点不明白楼主的意思，哪第一行是4呢？是不是也msgbox "4"?如果是任意呢？

[Tiger_Zhao]

Sub Main()
    Dim hFile As Integer, sLine As String
    
    hFile = FreeFile()
    Open "C:\set.txt" For Input Access Read As #hFile
    Line Input #hFile, sLine
    Close #hFile
    MsgBox sLine
End Sub

[shakoe]

仔细看了下楼主的题目。还是楼上的对啊。。。昏迷掩面泪奔

[sofiazhou]

我只有3个数字，呵呵

[sofiazhou]

哪个是对的？
语句里头一定要有IF语句可以吗？我的只有三个可能，。要么是1，要么是2，要么是3

[Tiger_Zhao]

Debug.Assert
少输了一个s

[caprason]

路过！
正好有用，学到一点，哈哈哈

[sofiazhou]

顶起来啊。。。急啊。。。

[Tiger_Zhao]

Sub Main()
    Dim hFile As Integer, sLine As String
    
    hFile = FreeFile()
    Open "C:\set.txt" For Input Access Read As #hFile
    Line Input #hFile, sLine
    Close #hFile
    Select Case sLine
        Case "1", "2", "3"
            MsgBox sLine
        Case Else
            Debug.Asert False
    End Select
End Sub

[sofiazhou]

Debug.Asert False
为什么说这个语法错误？

[sofiazhou]

我想要一条条的判定。。
如果 值为1 msgbox"这是第一个页面"
如果 值为2 msgbox"这是第二个页面"
如果 值为3 msgbox"这是第三个页面"

[cbm6666]

Dim aa$, s
Private Sub Form_Load()
Open "c:\set.txt" For Input As #1
aa = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
s = Split(aa, vbNewLine)
If Val(s(0)) = 1 Or Val(s(0)) = 2 Or Val(s(0)) = 3 Then
MsgBox "这是第" & GetChoice(Val(s(0))) & "个页面"
Else
MsgBox "无可用页面"
End If
End Sub

Function GetChoice(Ind As Integer)
GetChoice = Choose(Ind, "一", "二", "三")
End Function