123
返回列表 上一主題 發帖

文字檔讀取問題

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
21# 跳轉到 »
發表於 2011-9-29 18:28 | 只看該作者
回復 20# GBKEE


    好像有點複雜我要研究一下子.........謝謝GBKEE大大~

TOP

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
22#
發表於 2011-9-30 09:38 | 只看該作者
回復 20# GBKEE


     A = 0
    For i = 1 To Len(Ar(UBound(Ar))) Step 6                'Step 6 ->每隔6字元
       A = A + Val(Mid(Ar(UBound(Ar)), i, 6))
    Next
    Ar(UBound(Ar)) = A


請問大大這一段的作用為何?看不懂~

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
23#
發表於 2011-9-30 10:13 | 只看該作者
回復 22# herhsiu
UBound函數: 表示指定陣列某維最大可使用的陣列索引
Ar(UBound(Ar)) =>    "+00035-00006+00000+00700"
For i = 1 To Len(Ar(UBound(Ar))) Step 6                'Step 6 ->每隔6字元
          A = A +  Val(Mid(Ar(UBound(Ar)), i, 6))
         '->  i=1->   +00035
          '-> i=1+6    -00006
          '-> i=7+6  +00000
          '-> i=13     +00700
    Next

TOP

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
24#
發表於 2011-10-1 18:04 | 只看該作者
原來如此,受教了~
感謝大大,問題完全解決了,謝謝~

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
123
返回列表 上一主題