7489
社区成员
- 全部
根据文本文档判定的问题
请问一下。。。。
我有个文本文档set.txt
我实现这样的代码该如何写？
读取 set.txt的第一行
如果 第一行的值为1 则msgbox"1"
如果第一行的值为2 则msgbox"2"
如果第一行的值为3 则msgbox"3"
请不吝赐教。
我有个文本文档set.txt
我实现这样的代码该如何写？
读取 set.txt的第一行
如果 第一行的值为1 则msgbox"1"
如果第一行的值为2 则msgbox"2"
如果第一行的值为3 则msgbox"3"
请不吝赐教。
...全文
当前发帖距今超过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
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"这是第三个页面"
如果 值为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 Subsofiazhou 2008-04-02
顶起来啊。。。急啊。。。
caprason 2008-04-02
路过！
正好有用，学到一点，哈哈哈
正好有用，学到一点，哈哈哈
Tiger_Zhao 2008-04-02
Debug.Assert
少输了一个s
少输了一个s
sofiazhou 2008-04-01
哪个是对的？
语句里头一定要有IF语句可以吗？我的只有三个可能，。要么是1，要么是2，要么是3
语句里头一定要有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 Subzzyong00 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
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
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
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
Delphi 判断文件是否是文本文件类型.rar Delphi 判断文件是否是文本文件类型，这个判断程序并不会打开文件，只是通过ExtractFileExt函数来读取扩展名，在窗体上制作一个按钮，将按钮事件添加到该按钮中，当用户单击按钮选择指定文件后，立即获取扩展名信息...
C#文件与流 细分编写一个程序，根据用户从键盘输入的年份打印该年的年历，打印出来的年历保存在一个用户指定的文本文件中 编写一个程序，根据用户从键盘输入的年份打印该年的年历，打印出来的年历保存在一个用户指定的文本文件中
文本分类综述（各种方法介绍） K一近邻法是一种传统的基于统计的模式识别方法，其算法思想也很简单:给定一个待分类的测试文档，系统在训练集中查找最相似的k个文档(称为邻居)，并根据这些邻居的类别所属情况来给该文档的候选类别评分。可以把邻居...
Csharp文件操作全收录 具体内容如下：C#追加、拷贝、删除、移动文件、创建目录、递归删除文件夹及文件、指定文件夹下面的所有内容copy到目标文件夹下面、指定文件夹下面的所有内容Detele、读取文本文件、获取文件列表、读取日志文件、写入...
RZ文本加密 v2.0.zip 另外加密后的纯文本文件没有标志，软件本身也无法验证密码正确性，只有用户自己输入密码后查看是否乱码来判定。这意味着即便使用暴力破解，也无法验证结果正确与否（理论上需要知道足够长度的明文然后加以验证，明文...
文法分析 编译原理 1） 从文本文件中读入文法（文法事先应写入文本文件）； 2） 根据文法产生式的结构，分析出文法的4个部分，分别写入定义好的文法数据结构的相应部分； 3） 整理文法的结构，判断该文法的文法类型，是否为0型，1型，2...
基于深度学习的中文文本情感分类 基于深度学习的情感分类和智能客服研究与实现。主要是酒店和书店的评论情感分析，可以判定积极和消极，对于消极评论，还可以判断其具体类别，比如物流不好或者服务差等等。内含项目源代码和开发文档。
Semantic-Similarity-between-words:多年来，词间语义相似度的研究一直是自然语言处理和信息检索的一部分。 语义相似性是计算语言学和人工智能领域的各种应用中的一个通用问题，无论是在学术界还是在工业界。 示例包括词义消歧、单词拼写错误的检测和更正（不正确）、文本分割、图像检索、多模态文档检索和自动超文本链接。 两个词之间的相似性通常由与两个词相关联的概念之间的相似性来表示。 要确定两个词在语义上是否相似，重要的是要知道词之间的语义关系。 例如，可以认为马和牛这两个词在语义上相似， 示例包括词义消歧、单词拼写错误的检测和更正（不正确）、文本分割、图像检索、多模态文档检索和自动超文本链接。 两个词之间的相似性通常由与两个词相关联的概念之间的相似性来表示。 要确定两个词在语义上是否...
javascript文档 javascript的官方文档 这些方便实用的信息将帮助您了解 JScript 的各个部分。 在“字母顺序的关键字列表”中，可以找到按字母顺序列出的所有 JScript 语言的主题。如果只需要查看某个主题（例如对象），则有对该主题...
Lotus公式语言函数简介 @AtachmentNames 返回附加到文档中的文件的操作系统文件名 @Attachments 返回附加到文档中的文件数目 @Author 返回包含文档姓名的文本列表 @Begins 确定一个指定的子串是否保存在另一个字符串的开头 @Certificate 从...
论文抄袭检测大师 v6.3.5.93.zip 4．分块检测机制，将文章的每一文本块与其他文档的相似度都精确的表示出来了，每一文本块约为200字至400字不等，以红色表示极度相似（相似度大于80%），一目了然，清晰醒目。 5．相似文档模块跟踪技术，可以通过...
ZendFramework中文文档 10.5.7. 根据主键查找数据 10.5.8. 取回一条记录 10.5.9. 取回多条记录 10.5.10. Adding Domain Logic 10.6. Zend_Db_Table_Row 10.6.1. 简介 10.6.2. 取回一条记录 10.6.3. 修改数据 10.7. Zend_Db_Table_...
