1樓：
dim data as integer, strtext as string
dim maxdata as integer, i as integer, j as integer
strtext = "***************3
#***************4
#***************5
#"i = 1
j = 1
maxdata = 0
do while i <> 0 and j <> 0
i = instr(j, strtext, "")
if i <> 0 then
j = instr(i, strtext, "")
data = mid(strtext, i + 4, j - i - 4)
debug.print data
if data > maxdata then maxdata = data
end if
loop
debug.print "最大值：" & maxdata
2樓：沙慧月
來個最簡單的，網頁原始碼放在text1
private sub command1_click()t = split(text1, "")
for i = 1 to ubound(t)j = split(t(i), "")
print j(0)
next
end sub
VB如何獲取網頁的內容
1 相關 如下 public function gethtmlstr strurl as string 獲取遠端網頁原始碼 stime now 獲取當前時間 ntime now 獲取迴圈時間 2 使用 在窗體 相應位置寫如下 dim a as string a gethtmlstr 要獲取的 url...
EXCEL提取指定彩色單元格內容
摘抄別人的，不知道對你有沒有幫助。第一題，關於背景色的篩選 假設a,b,c,d列都有資料，第一行是標題，一直到20行，假設a列中有顏色 因為你說的是整行是一個顏色 1.在e1中輸入color1,定義名稱，名稱為color1，在引用位置中輸入 sheet1 a2 rand 0 引號不輸入 3.在e2中...
VB連線ACCESS，如何實現查詢指定內容
select from 表1 where 貨號 trim text1.text update 表1 set 38碼 trim text2.text 39碼 trim text3.text 40碼 trim text4.text 41碼 trim text5.text 42碼 trim text6.t...