For Example:
創(chuàng)新互聯(lián)專注于鄂托克前網(wǎng)站建設(shè)服務(wù)及定制,我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠為您提供鄂托克前營銷型網(wǎng)站建設(shè),鄂托克前網(wǎng)站制作、鄂托克前網(wǎng)頁設(shè)計(jì)、鄂托克前網(wǎng)站官網(wǎng)定制、微信小程序服務(wù),打造鄂托克前網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供鄂托克前網(wǎng)站排名全網(wǎng)營銷落地服務(wù)。
1.txt文件內(nèi)容如下:
The 1st line.
#The 2nd line.
The 3rd line.
The 4th line.
.
修改第二行內(nèi)容,將#除去.修改后的文本如下:
The 1st line.
The 2nd line.
The 3rd line.
The 4th line.
1 輸入方式打開原文件 1.txt;
2 輸出方式打開新文件 2.txt;
3 逐行 Line Input 從 1.txt 中讀數(shù)據(jù),Print 寫入 2.txt,直至要修改的行;
4 丟棄從 1.txt中讀出的要修改的行,將新內(nèi)容行寫入 2.txt;
5 仿照第 3 步,將其余的行從 1.txt 復(fù)制到 2.txt。
6 關(guān)閉兩個(gè)文件
7 刪除1.txt,將 2.txt 的文件名改為原來 1.txt 的。
1、vb6中用鼠標(biāo)拖放文本框大小。
2、vb6的文本框讓文本自動(dòng)換行的方法是設(shè)置它的MultiLine屬性為true.
3、vb6全稱全稱為VisualBasic 6.0,是微軟公司推出的可視化編程工具M(jìn)SDN之一,是目前世界上使用最廣泛的程序開發(fā)工具。如果你是一個(gè)對(duì)編程一無所知,而又迫切希望掌握一種快捷實(shí)用的編程語言的初學(xué)者,那選擇VB 6.0沒錯(cuò)的。即使考慮到VB程序本身編譯和運(yùn)行效率較低的不足(嘻嘻速度現(xiàn)在不是問題吧),單是它的快捷的開發(fā)速度,簡單易學(xué)的語法,體貼便利的開發(fā)環(huán)境,它仍不失一款優(yōu)秀的編程工具,是初學(xué)者的首選。
在屬性欄里把multiLine選為 ture,就可以實(shí)現(xiàn)自動(dòng)換行;
MultiLine 屬性(應(yīng)用于TextBox)
返回或設(shè)置一個(gè)值,該值指示 TextBox 控件是否能夠接受和顯示多行文本。在運(yùn)行時(shí)是只讀的。
語法
object.MultiLine
object 所在處代表一個(gè)對(duì)象表達(dá)式,其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。
設(shè)置值
MultiLine 屬性設(shè)置值有:
設(shè)置值 描述
True 允許多行文本。
False (缺省值)忽略回車符并將數(shù)據(jù)限制在一行內(nèi)。
MultiLine 屬性
返回或設(shè)置一個(gè)值,該值指示 TextBox 控件是否能夠接受和顯示多行文本。在運(yùn)行時(shí)是只讀的。
語法
object.MultiLine
object 所在處代表一個(gè)對(duì)象表達(dá)式,其值是“應(yīng)用于”列表中的一個(gè)對(duì)象。
設(shè)置值
MultiLine 屬性設(shè)置值有:
設(shè)置值 描述
True 允許多行文本。
False (缺省值)忽略回車符并將數(shù)據(jù)限制在一行內(nèi)。
說明
當(dāng)鍵入文本超出文本框時(shí)多行 TextBox 控件將使正文卷繞。
使用 ScrollBars 屬性也能夠在 TextBox 控件中加入滾動(dòng)條來加大 TextBox 控件的顯示范圍。如果沒有指定水平滾動(dòng)條,那么在多行 TextBox 中文本將自動(dòng)地卷繞。
注意 在一個(gè)沒有缺省按鈕的窗體上,在多行 TextBox 控件中按下 ENTER 將把焦點(diǎn)移動(dòng)到下一行。如果有缺省按鈕存在,那么必須按下 CTRL+ENTER E才能移動(dòng)到下一行。
vb和vb.net的操作都是先設(shè)MultiLine屬性為True
換行符 vbCrLf
例如:
a = "1" vbCrLf "2"
那么a的值將會(huì)是:
1
2
dim strA as string Do While Not EOF(1) Line Input #1, temp strA = strA temp Loop do until len(strA)=0 if len(strA) 100 then print #2 ,left(strA,100) strA=right(strA,len(strA)-100) else pirnt #2, strA strA="" endif loop close #1 close #2
求采納