VB TXT 檔案內容拆分

這取決於你想把你讀的東西放在哪裡。

例如，您希望將 textbox1 的內容放入 textbox2 中。

直接寫就好了。 文字就好了！！

sub splittxt(s as string, nlength as long, strfilename as string)

s，你想拆分什麼。

nlength 要拆分的單位長度。

strfilename 生成的檔名後自動跟乙個數字。 txt，如“我的檔案”我的檔案。

dim n as long

n = len(s)

for i = 1 to n step nlength

tmp = mid(s, i, nlength)

open "c:\" & strfilename & format((i - 1) length + 1, "00") &".txt" for output as #1 '如果有更多，如果有數百個，則將其更改為 000

以上內容儲存在 c： 中，也可以替換為 ，並儲存在應用程式所在的目錄下。

print #1, tmp

close #

nextend sub

private sub command1_click()

dim s as string

s = "這裡是文字**這裡是文字**這裡是文字**這裡是文字**這裡是文字**這裡是文字**這裡是文字**這裡是文字的文字，這裡是文字的文字，文字的文字， 文字的文字，文字的文字，文字的文字，文字的文字，文字的文字"

call splittxt(s, 20, "我的檔案")

end sub

sub splittxt(s as string,nlength as long,strfilename as string)

end sub

一定尺寸分割

隨著 len....

在迴圈中定義。

如果 len 的長度相同，請將其切開並儲存乙份。

再看，還有內容，就剪了。 沒有盡頭

具體來說，我可以幫你除錯。 但是程式設計師不能偷懶。。

為什麼這個問題還沒有解決？

我給你準備了乙個，你自己看看吧！