VB 拆分 TXT 文字，VB 讀取 TXT 文字拆分字元

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 的長度相同，請將其切開並儲存乙份。

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

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

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

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

這很簡單，只需新增幾個如果即可。

VB 讀取以行為單位表示。