Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

關於VB的問題

0 views
Skip to first unread message

ok

unread,
Dec 3, 2000, 3:00:00 AM12/3/00
to
我想用visual basic讀取未知大小的文字檔
但第一列的title不要讀取
從第二列讀取到檔尾
應該如何做才好

Idx = 1
While Not txtf.AtEndOfStream
Line = txtf.ReadLine
Cells = Split(Line, ",")
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 ' 增加一列
' 將Cells(0~4) 指定給TextMatrix(Idx, 0~4)
For i = 0 To UBound(Cells)
MSFlexGrid1.TextMatrix(Idx, i) = Cells(i)
Next
Idx = Idx + 1
Wend
txtf.Close

--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: LIAO.me.ntust.edu.tw

裝載回憶的電鍋

unread,
Dec 3, 2000, 8:03:45 PM12/3/00
to
※ 引述《iamalv...@bbs.cs.nthu.edu.tw (ok)》之銘言:

> 我想用visual basic讀取未知大小的文字檔
> 但第一列的title不要讀取
> 從第二列讀取到檔尾
> 應該如何做才好
> Idx = 1
> While Not txtf.AtEndOfStream
> Line = txtf.ReadLine
> Cells = Split(Line, ",")
> MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1 ' 增加一列
> ' 將Cells(0~4) 指定給TextMatrix(Idx, 0~4)
> For i = 0 To UBound(Cells)
> MSFlexGrid1.TextMatrix(Idx, i) = Cells(i)
> Next
> Idx = Idx + 1
> Wend
> txtf.Close

嗯~~~讀出來比不去讀他簡單吧??
只要讀出來不用就好囉!!!
所以在迴圈一開始就先讀出一行!!
進迴圈以後~~在開始讀出其他的~~~這邊開始的自然是第二行囉!!
讀到結束~~在不然可以找個變數先把最後一行讀出來!!
然後讀出來的就拿到最後一行比對!!

OK~~~在最後一個方法!!由後面讀回來!!
讀到跟第一個一樣的就不要而且停止!!

--
[0;36;40m電鍋 [0;32;40m不只是 [0;36;40m電鍋 [m
[0;33;40m而它之所以為普通電鍋 [m
[0;31;40m唯一因素是你 [0;35;40m狹隘的思想 [m

[0;31;40m電鍋說: [0;32;40m限制想像力等於限制自己的成就 [m
--
[1;33m※ Origin: [36m奇摩 大摩域 [37m<telnet://bbs.kimo.com.tw> [m
[1;35m◆ From: [1;32m203.75.240.101 [m

0 new messages