VB 將文字框的內容拆分為乙個列表

這句話是除錯**。

private sub form_load()text1 = "1" & vbcrlf & "00:01:28,074-->00:

01:29,704" & vbcrlf & "你好" & vbcrlf & vbcrlf & "2" & vbcrlf & "00:01:

29,819-->00:01:30,819" & vbcrlf & "哎呀"

end sub

private sub command2_click()for i = 1 to len(text1)i1 = instr(i, text1, "-->")if i1 > 0 then

i2 = instrrev(text1, ":", i1)if i2 > 0 then

mid(text1, i2 - 2, 5)mid(text1, i1 + 6, 5)i3 = instr(i1, text1, vbcrlf)if i3 > 0 then

i4 = instr(i3, text1, vbcrlf & vbcrlf)

if i4 = 0 then i4 = len(text1)mid(text1, i3 + 2, i4 - i3)end if

end if

i = i1 + 3

elseexit for

end if

nextend sub

請參考，。

private sub command1 click（），其中每條記錄由空行分隔，空行首先在陣列中分隔。

dim rs

rs = split（， vbcrlf & vbcrlf） 將每條記錄分成乙個陣列，第三個維度是 “hello”、“ouch”。"；時間的第二維位置是固定的，字串可以用 mid（） 獲取。

dim item

dim afor each item in rsprint a = split(item, vbcrlf)mid(a(1), 4, 5)

mid(a(1), 21, 5) '第二次位置可能被錯誤計算。

a(2)nextend sub

它完成了，順便說一句，收集了一些財富價值。

這很容易做到，但需要一段時間，我會在晚上為你寫。

private sub command1_click()= ""

for i = 0 to - 1

chr(13) +chr(10)next

end sub

--textbox 的 multiline 屬性已更改為 true，滾動條的屬性已更改為 3

這很容易做到，拆分文字並刪除空行**，如下所示：

dim str1, i

str1 = split(text1, vbcrlf):text1 = ""

for i = 0 to ubound(str1)if trim(str1(i)) "" then text1 = text1 & str1(i) &vbcrlf

next

str= split(, vbcrlf)

vbcrlf & vbcrlf，vbcrlf），vbcrlf & vbcrlf，vbcrlf） 注意是兩次，一次不足以滿足 null 行為的基數。

private sub command1_click()dim a as string

if = and <>0 thenfor i = 1 to

a = - 1)

if a = then '只尋找第乙個“3”。

i - 1i - 1

exit for

end if

next i

elsemsgbox "list1 與 list2 的長度不同或為空", vbokonly, "提示！ "

end if

end sub

好像沒人幫你解決過，我給你**修改一下，可以複製執行，你的表單應該有以下4個控制項：list1、list1、text1和command1【屬性預設】。

dim player(0 to 2) as string '描述兩個陣列的大小。

dim salary(0 to 2) as singledim sum as single

private sub command1_click()dim i as long, j as long '宣告變數。

if = 0 then exit subif < 0 then

msgbox "請在列表框 1 中選擇產品"

exit sub

end if

if > 0 then

sum = 0

for i = 0 to - 1

for j = 0 to 2

if = player(j) then sum = sum + salary(j)

next j

next i

else "$0"

end if

cstr(sum) +"元" '顯示與名稱對應的 **。

end sub

private sub form_load()dim i as long '宣告變數。

autosize = true

player(0) = "圍兜褲" '在陣列中輸入資料。

player(1) = "毛衣"

player(2) = "衛衣"

salary(0) = 165

salary(1) = 135

salary(2) = 75

for i = 0 to 2 '向列表新增名稱。

player(i)

next i

1 '顯示列表中的第一項。

end sub