作者Changsunche (长孙辙)
看板Visual_Basic
标题[VB6 ] 一些关於文字读取的问题
时间Thu Oct 29 13:11:48 2009
有个题目是说：
输入说明：
由标准输入(键盘)输入。第一航有一个正整数N，3<=N<=100，表示共有N个选手参加比赛。
接下来的N行，依序表示1~N位选手的成绩。
每个选手将有六个成绩，分数范围为0~100的整数表示，分别是六个题目得分，
彼此以控格分开。你可以假设前三名都只有唯一依各。
输出说明：
输出一行到萤幕上。依序为冠、亚、季军的编号。并以空白隔开。
范例输入：
5
10 0 30 0 40 0
80 40 10 20 30 100
10 0 0 0 0 0
10 70 20 40 80 10
100 30 50 70 60 80
范例输出：
5 2 4
▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
以上是题目，程式是大致写出来，
但读取方式可能跟题目本意不同，
想知道如何在text1.text输入范例输入的文字之後，
并且可以读取内容物。
我现在的方式是先建立在D槽一个txt文件，
用读取文件的方式，输出也是以txt文件输出，
但感觉於题目本意无关，
想请各位指教一下。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.24.167.226
1F：→ MOONRAKER:听不懂。 10/29 13:29
2F：推 ClubT:我也不太懂 所以我用猜的...Text1.MultiLine=True 10/29 15:58
3F：→ ClubT:这样就可以多行输入 10/29 15:59
4F：→ ClubT:接下来就一行一行处理 和记事本差不多啦 10/29 15:59
5F：→ MOONRAKER:这一猜怎麽突然有很清爽的感觉 XD 10/29 16:24
对於Text1.Multiline=True这边，我已经能够让一个Text1.text能够多行输入，
但问题在於：读取方面，我不知道要如何像TXT一般读取，
-----------------------------------------------------------
在TXT文件里面，读取方式为：
假设0.txt为文件，并且在D槽内。
----
Open "D:\0.txt" for input as #1 '像这样，之後使用
Do while not Eof(1)
open #1,n1,n2
Loop
▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
像这样的读取方式，但是在Text中，
我不知道要如何读取QAQ。
意思就是：我会读取Txt内的数字，
但是不会读取Text内的资料。
※ 编辑: Changsunche 来自: 125.228.105.94 (10/29 21:15)