1樓：馬馬君
如果偶的理解沒錯，以下**可以滿足樓主的要求：
private bj as boolean'新行標記
private sub ***mand1_click()'重新整理按鈕
，把新行加到text2前面
if len(text1) > 0 then
text2 = text1 & vbcrlf & text2
text1 = ""
bj = true
end if
end sub
private sub ***mand2_click()'退出按鈕，把text2內容存入123.txt
if bj = true then
dim f as integer
f = msgbox("有修改，存檔否？", vbyesno + vbexclamation, "警告")
if f = vbyes then
open "123.txt" for output as #2
print #2, text2.text
close #2
end if
end if
endend sub
private sub form_load()'將檔案讀入text2
open "123.txt" for input as #1
do until eof(1)
line input #1, newline
text2 = text2 & newline & vbcrlf
loop
close #1
end sub
說明：1、介面：一個標籤label1;一個普通文字框text1;兩個按鈕：重新整理***mand1
退出***mand2;一個帶滾動條的多行文字框text2(multiline=true,
scrollbars=2)
2、在當前目錄建立 123.txt
3、把上面**貼上後，就能實現。
呵，樓主的題目比較複雜，仔細一點！請驗證。要麼，你給郵箱，我發給你。
效果圖如下：
2樓：匿名使用者
寫另一個新檔案，讀原檔案，寫新檔案，刪除原檔案，改名新檔案為原檔案！
3樓：匿名使用者
首先 讀取你的原始檔在變數a 然後將你的新資訊存入 b 再將a+b 存入 覆蓋原始檔即可
sapdebug問題請高手不吝賜教
可以按照以下方法 先定義一個變數 l tabix type sy tabix，用來存放當前迴圈的行號，然後在loop中將內sy tabix 賦值給 l tabix.在除錯到loop迴圈時，按路徑 容breakpoints create watchpoint，建立一個watchpoint，在彈出的設定...
excel高手請賜教
excel函式眾多，碰到不會用的函式可以查閱函式幫助 編輯欄旁邊的fx按鈕 檢視函式語法的說明和應用例項。我剛開始也被這個函式折磨了很長時間，甚至分不清楚indirect和index的區別。indirect的說明 返回文字字串指定的引用。思雪遙遙的解釋很好，聯想函式名的英文詞義，這樣容易理解和記憶。...
VB程式設計的datagrid控制元件問題,高手請進 急急急
重新整理ado 和 datagrid adodc1.refresh datagrid1.refresh 這裡是顯示資料.你要是用一個ado控制元件的話，就要每次改變ado資料來源.我瞭解你的意思，不同條件，就代表ado的資料來源變了哇，你得每次改變資料來源，改變後重新整理ado控制元件，這樣就可以出...