VB中如何逐行讀取文本框的內(nèi)容？VB6.0可以一次讀取文本框的所有文本內(nèi)容，然后使用拆分功能逐行提取文本框的行內(nèi)容。split函數(shù)返回一個(gè)具有零下標(biāo)的一維數(shù)組，該數(shù)組包含指定數(shù)量的子字符串。實(shí)現(xiàn)代碼：

VB中如何逐行讀取文本框的內(nèi)容？

VB6.0可以一次讀取文本框的所有文本內(nèi)容，然后使用拆分功能逐行提取文本框的行內(nèi)容。split函數(shù)返回一個(gè)具有零下標(biāo)的一維數(shù)組，該數(shù)組包含指定數(shù)量的子字符串。實(shí)現(xiàn)代碼：private sub command1uclick（）dim strsj as string dim strsjfh as variant dim I as long strsj=Text1 strsjfh=split（strsj，vbcrlf）text2=UBound（strsjfh）“總數(shù)I=InputBox（”輸入要讀取的行數(shù)“，一） msgbox（strsjfh（I-1））End Sub

代碼和注釋如下：private Sub CommandButton 1uclick（）for I=1 to 3“circular arr（I）=userform1（“TB”&；I）。Text“將文本框的內(nèi)容分配給數(shù)據(jù)arr，假設(shè)文本框所屬的窗體名為userform1next iend sub