討論區快速選單
知識庫快速選單
開發App該選哪個平台? 網路投保旅行平安險 程式設計俱樂部Facebook粉絲團
[ 回上頁 ] [ 討論區發言規則 ]
從txt抓資料的格式
更改我的閱讀文章字型大小
作者 : s22451980(:-))
[ 貼文 2 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2011/6/12 上午 01:34:25
我想請問一下,我的記事本裡面的檔案內容是 「12,25,55,45,13」 這種格式的資料
我現在想要把他抓出來,可是我不想要有 "," ,我想要單純把數字丟進陣列裡
這該如何??
作者 : qazujm(joe) Visual Basic卓越專家C#優秀好手貼文超過1000則
[ 貼文 1521 | 人氣 2524 | 評價 9070 | 評價/貼文 5.96 | 送出評價 90 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2011/6/12 上午 09:53:16
Dim TextLine As String, strSplit() As String
Dim i As Integer, intNum() As Integer, intCount As Integer, intStart As Integer

Open "D:\TESTFILE.txt" For Input As #1
' 若要以其它模式開啟此檔,必需先將此檔關閉。

intIndex = 0
intStart = 0

Do While Not EOF(1) ' 執行迴圈直到檔尾為止。
     Line Input #1, TextLine ' 讀入一行資料並將之指定給變數。
     strSplit = Split(TextLine, ",")
     intCount = intStart + UBound(strSplit)
     ReDim Preserve intNum(intCount)
     For i = 0 To UBound(strSplit)
     intNum(i) = CInt(strSplit(i))
     Debug.Print intNum(i) ' 在「立即」視窗中顯示。
     Next

     intStart = intCount + 1
Loop

Close #1
 板主 : 徵求中
 > VB Script - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - VB Script - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
VB Script
1 羅蘋 270 
2 foolface 170 
3 坤哥 80 
4 nono 80 
5 阿戊 70 
6 sorry 60 
7 Kevin 50 
8 紫曰 40 
9 玩家 40 
10 黑天黑地 40 
VB Script
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.03125