新人求助：如何实现文本框数据，自动截取字符，并按要求放到另外一个文本框？多谢！

Question

你的问题借助文本文件的读写操作较易完成.用CMDOPEN打开文本时已做修改,用TEXT2显示修改后的文本，最后用CMDSAVE储存修改后的文本:
Option Explicit
Dim NextLine As String
Dim NextLine1 As String
Dim charu2 As String
Dim Txt_sj As String
Dim sj As String
Dim l As Integer
Dim i As IntegerPrivate Sub cmdOpen_Click()
i = 1
charu2 = "号码"
Open "D:\cldj_sj.txt" For Input As #1
Txt_sj = ""
Do Until EOF(1)
Line Input #1, NextLine
NextLine1 = NextLine
NextLine1 = NextLine1 & charu2 & i
Txt_sj = Txt_sj & NextLine & Chr(13) & Chr(10)
sj = sj & NextLine1 & Chr(13) & Chr(10)
i = i + 1
Loop
Close
TxtEdit = Left(Txt_sj, Len(Txt_sj) - 2)
sj = Left(sj, Len(sj) - 2)
Text2 = sj
End SubPrivate Sub cmdSave_Click()
Dim NextLine As String
Open "D:\cldj_sj.txt" For Output As #1
Print #1, Text2
Close
End Sub

Answer 1

补充：
Chr(13) & Chr(10)或vbcrlf占2字节