根据文本文档判定的问题

sofiazhou 2008-04-01 02:48:12
请问一下。。。。
我有个文本文档set.txt
我实现这样的代码该如何写?
读取 set.txt的第一行
如果 第一行的值为1 则msgbox"1"
如果第一行的值为2 则msgbox"2"
如果第一行的值为3 则msgbox"3"
请不吝赐教。
...全文
75 点赞 收藏 15
写回复
15 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cbm6666 2008-04-02
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

回复
sofiazhou 2008-04-02
我想要一条条的判定。。
如果 值为1 msgbox"这是第一个页面"
如果 值为2 msgbox"这是第二个页面"
如果 值为3 msgbox"这是第三个页面"
回复
sofiazhou 2008-04-02
Debug.Asert False
为什么说这个语法错误?
回复
Tiger_Zhao 2008-04-02
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 2008-04-02
顶起来啊。。。急啊。。。
回复
caprason 2008-04-02
路过!
正好有用,学到一点,哈哈哈
回复
Tiger_Zhao 2008-04-02
Debug.Assert
少输了一个s
回复
sofiazhou 2008-04-01
哪个是对的?
语句里头一定要有IF语句可以吗?我的只有三个可能,。要么是1,要么是2,要么是3
回复
sofiazhou 2008-04-01
我只有3个数字,呵呵
回复
shakoe 2008-04-01
仔细看了下楼主的题目。还是楼上的对啊。。。昏迷掩面泪奔
回复
Tiger_Zhao 2008-04-01
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
回复
zzyong00 2008-04-01
呵呵,有点不明白楼主的意思,哪第一行是4呢?是不是也msgbox "4"?如果是任意呢?
回复
zzyong00 2008-04-01
dim str1 as string
open "set.txt" for input as #1
line input #1 , str1
msgbox str1
close #1
回复
shakoe 2008-04-01
错错错

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
回复
shakoe 2008-04-01
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
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-01 02:48
社区公告
暂无公告