Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
½Ð±ÐDo whileªº°ÝÃD¡A§Ú¬d¤£¥XþÃ䦳°ÝÃD
0 views
Skip to first unread message
我一定老了
Feb 2, 2000, 3:00:00 AM2/2/00
to
Set fs = CreateObject("Scripting.FileSystemObject")
count1 = 0
For fnum = 0 To List1.ListCount - 1
Set a = fs.CreateTextFile(fpath & List1.List(fnum) & ".txt", True)
j = count1
Do While (List2.List(j) <> "")
array3(j) = List2.List(j)
a.WriteLine (array3(j))
j = j + 1
Loop
j = j + 1
count1 = j
a.Close
Next fnum
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
我先前已經把一篇文章，以斷行的方式split(data,vbcrlf)做切割，
我想要在文章內作分割成很多檔案效果，
但是我想要限定在，如上程式第六行的Do While
我想把他變成遇到兩個空白陣列時，才跳出
我就降子寫
Do While (List2.List(j) <> "" And List2.list(j+1) <> "" )
count1 = 0
For fnum = 0 To List1.ListCount - 1
Set a = fs.CreateTextFile(fpath & List1.List(fnum) & ".txt", True)
j = count1
Do While (List2.List(j) <> "")
array3(j) = List2.List(j)
a.WriteLine (array3(j))
j = j + 1
Loop
j = j + 1
count1 = j
a.Close
Next fnum
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
我先前已經把一篇文章，以斷行的方式split(data,vbcrlf)做切割，
我想要在文章內作分割成很多檔案效果，
但是我想要限定在，如上程式第六行的Do While
我想把他變成遇到兩個空白陣列時，才跳出
我就降子寫
Do While (List2.List(j) <> "" And List2.list(j+1) <> "" )
我的想法是 兩件事情同時成立時，再跳出，但是..就是出不來，
可以教教我嗎？(我降子寫不對嗎？)
--
※ Origin: 楓橋驛站<bbs.cs.nthu.edu.tw> ◆ From: ts7-31.tpe.neto.net
0 new messages