VB輸出匯出txt，vb匯出txt文字如何輸出整齊整齊？

open & remeber_" for output as #print #1, "儲存盲模態的內容"

close #

如果以後要把源果實的隱藏查詢放進去，就用資料庫吧。

如果想在VB程式設計中將輸出內容儲存為txt檔案，則需要使用open命令開啟txt檔案，然後使用print命令將內容列印到txt檔案中，例如

open "c:\" for output as #1print #1, "zhidao"

close #

將"zhidao"儲存到"c:\"

建立乙個空檔案。

以文字形式開啟。

寫入已關閉。

選項 1

print tab(5);str1;tab(20);str2 選項二

s=str1 & string(20-len(str1)*2)," ") &str2

注意：在計算 str1 和 str2 之間的空間時，不考慮 str2，只考慮 str1 的長度，len（str1）*2 表示占用的寬度，因為它是漢字。 你試著複製我的**，或者仔細複製我的**看看結果。

當然，還有第三種選擇，比較麻煩。

print str1;

print str2

也可以實現對齊。

請驗證它是否正確。 謝謝。

乙個 vbtab 占用兩個單詞的空間，你做數學運算。

看一下以下程式會有幫助嗎？

private sub command1_click()open "d:\" for output as #1print #

s = 1for i = 2 to 10

print #1, "+"; trim(str(i));

s = s + i

next i

print #1, "="; trim(str(s))close #

end sub

執行後檔案的內容包括：

private

subtext1_change()

opend:\"

foroutput

as#print

#1,text1

close#1end

sub' 這仍然是最簡單的。 如果刪除文字的內容，資料也會被刪除，只要文字的內容發生變化，它也會發生變化。

建立乙個新的 txt 文件並按如下方式輸出它：

dim s as string '定義字元變數 open"c:\" for output as #1 '寫入檔案 c：

程式週期過程。

print #1, s

程式週期過程。

close #1 '關閉開啟的檔案。

'小部件需要 2 個按鈕、乙個列表和乙個文字小部件 private sub command1 click（）。'將文字的內容新增到列表中

end sub

private sub command2_click()dim i as integer

for i = 0 to - 1

open "d:\" for output as #1 '這是乙個新的 txt，位於 D 驅動器上。

print #1, '逐行輸出列表內容。

close #

nextend sub

'不知道要輸出什麼？ 以下是連續輸出 1 到 10 的數字。

樓上有個錯誤，需要把迴圈放在開啟語句後面，否則上次寫的內容會被覆蓋。

private sub command1_click()dim i as integer

open "" for output as #1for i = 1 to 10

print #1, i

next i

close #

end sub

看語法似乎沒問題。 我寫了乙個類似於你上面的程式，它有效。 自己實際操作是可以的。