第一個(gè)問(wèn)題有個(gè)簡(jiǎn)單的方法,把字符串變量賦值到一個(gè)textbox里面,利用textbox.lines實(shí)現(xiàn)。如:
創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),武陵源企業(yè)網(wǎng)站建設(shè),武陵源品牌網(wǎng)站建設(shè),網(wǎng)站定制,武陵源網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷(xiāo),網(wǎng)絡(luò)優(yōu)化,武陵源網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力??沙浞譂M(mǎn)足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專(zhuān)業(yè)、時(shí)尚、前沿,時(shí)刻以成就客戶(hù)成長(zhǎng)自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
dim a as string ="hh12345" vbcrlf "qdq123" vbcrlf "ddd244" vbcrlf "whw266" ’定義變量
textbox1.text=a ‘賦值
message.show(textbox1.lines(2).tostring) ‘顯示第三行內(nèi)容。
第二個(gè)問(wèn)題結(jié)合第一個(gè)問(wèn)題,用循環(huán)逐行查找,就可知道字符串第一次出現(xiàn)在哪行。
無(wú)法讀取指定的某一行,只能通過(guò)對(duì)整個(gè)文本框里的字符串,采用字符串函數(shù)等方法,分離獲得某一行的內(nèi)容。
給你一個(gè)VB2010讀寫(xiě)文件的例子吧
Dim?name?As?String?=?""
Dim?age?As?Integer
name?=?InputBox("請(qǐng)輸入姓名")
age?=?InputBox("請(qǐng)輸入年齡")
FileOpen(1,?"d:\信息.txt",?OpenMode.Append)
WriteLine(1,?name,?age)
FileClose(1)
FileOpen(1,?"d:\信息.txt",?OpenMode.Input)
Dim?h?As?String
Dim?j?As?String
Dim?f?As?String
f?=?""
h?=?""
j?=?""
While?EOF(1)?=?False
f?=?LineInput(1)??vbCrLf??f
End?While
FileClose(1)
MsgBox("姓名"??"??"??"年齡"??vbCrLf??f)
以下示例一次從文件中讀取一行,然后將每行文本打印到控制臺(tái)。
Sub ReadTextLinesFromFile()
Dim file As New System.IO.StreamReader("c:test.txt")
Dim oneLine As String
oneLine = file.ReadLine()
While (oneLine "")
Console.WriteLine(oneLine)
oneLine = file.ReadLine()
End While
file.Close()
End Sub