› 精華區beta Visual_Basic 關於我們 聯絡資訊
作者needhope (Let's move out)
看板Visual_Basic
標題[VB6 ] 字串陣列初始值設定
時間Wed Nov 2 07:45:57 2005
我想請教三個問題 剛爬文看了 陣列的初始值設定好像只能一個一個來 有沒有像 c 語言一樣 int array[] = { 123, 123,123 ,123 } 有這種 做法嗎? 還是只能 Dim q(0) = ??? q(1) = ??? 另一個是我 用 replace 找 <html> 用 空白 取代 有沒有指令是 backspace 的效果 原始檔案 => 處理過的檔案 <html> 'html去掉 可是空一行 <head> <head> . . 謝謝大家 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 163.23.225.206 > -------------------------------------------------------------------------- < 作者: fumizuki (小獅子) 看板: Visual_Basic 標題: Re: [VB6 ] 字串陣列初始值設定 時間: Wed Nov 2 11:30:03 2005 ※ 引述《needhope (Let's move out)》之銘言： : 我想請教三個問題 : 剛爬文看了 陣列的初始值設定好像只能一個一個來 : 有沒有像 c 語言一樣 : int array[] = { 123, 123,123 ,123 } : 有這種 做法嗎? 沒有 但你可以這麼做 Dim arr arr = Array(123, 123, 123, 123) : 還是只能 : Dim q(0) = ??? : q(1) = ??? : 另一個是我 用 replace 找 <html> 用 空白 取代 : 有沒有指令是 backspace 的效果 : 原始檔案 => 處理過的檔案 : <html> 'html去掉 可是空一行 : <head> <head> : . : . : 謝謝大家 '假設你要取代的檔案存在code這個變數裡 code = Replace(code, "<html>", "") delTip = "<<<<刪除>>>>" tmp = Split(code, vbCrLf) For i = 0 To Ubound(tmp) If Trim(tmp(i)) = "" Then tmp(i) = delTip Next code = Join(Filter(tmp, delTip, False), vbCrLf) -- ▃▅▇▆▄ ▆▂▃ ` 逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃ ▇▃▂" . █████████▃i ▁▄▇ 更多悽悽慘慘的遭遇…………██▆▃ █▅▆▃ˍ▄* ◢ ▂█▄▇▅▂▌. 我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.222.155.162
推 needhope:謝謝你的幫忙. VB6 相關的 function 要去那裏查? M$已經 11/02 14:42
→ needhope:沒有看節 VB6. 11/02 14:43
推 needhope:這時候的tmp 是 array type嗎? 我怎麼指 存在temp的第一 11/02 15:03
→ needhope:第一個字元? 11/02 15:04
推 fumizuki:tmp是由變數內容決定資料型態 11/02 19:17
推 fumizuki:MSDN for vb6 11/02 19:18
→ fumizuki:VB6 按F2 會有物件瀏覽 可以查到所有函數 11/02 19:19
> -------------------------------------------------------------------------- < 作者: silence1119 (淡藍色的秋天) 看板: Visual_Basic 標題: Re: [VB6 ] 字串陣列初始值設定 時間: Thu Nov 3 15:49:13 2005 ※ 引述《fumizuki (小獅子)》之銘言： : ※ 引述《needhope (Let's move out)》之銘言： : : 我想請教三個問題 : : 剛爬文看了 陣列的初始值設定好像只能一個一個來 : : 有沒有像 c 語言一樣 : : int array[] = { 123, 123,123 ,123 } : : 有這種 做法嗎? : 沒有 : 但你可以這麼做 : Dim arr : arr = Array(123, 123, 123, 123) dim arr(4) for i = 0 to 3 arr(i) = 123 next : : 還是只能 : : Dim q(0) = ??? : : q(1) = ??? : : 另一個是我 用 replace 找 <html> 用 空白 取代 : : 有沒有指令是 backspace 的效果 : : 原始檔案 => 處理過的檔案 : : <html> 'html去掉 可是空一行 : : <head> <head> : : . : : . : : 謝謝大家 : '假設你要取代的檔案存在code這個變數裡 : code = Replace(code, "<html>", "") : delTip = "<<<<刪除>>>>" : tmp = Split(code, vbCrLf) : For i = 0 To Ubound(tmp) : If Trim(tmp(i)) = "" Then tmp(i) = delTip : Next : code = Join(Filter(tmp, delTip, False), vbCrLf) -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 60.248.194.226