VB 如何在文本框每行前后增加字符,如图?
例如
将文本框的内容变成:
共计第1组
共计第2组
共计第3组
共计第4组
共计第5组

多谢
问题补充：如图
http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/edd5bbec966a692562d09fe2.jpg

[解决办法]
有笔误更正答复
你的问题借助文本文件的读写操作较易完成.用CMDOPEN打开文本时已做修改,借用CMDEDIT将修改结果显示与原文本框,最后用CMDSAVE储存修改后的文本:Option Explicit
Dim NextLine As String
Dim NextLine1 As String
Dim charu1 As String
Dim charu2 As String
Dim Txt_sj As String
Dim sj As String
Dim l As Integer

Private Sub cmdOpen_Click()
charu1 = "合计 "
charu2 = "组 "
Open "D:\cldj_sj.txt " For Input As #1
Txt_sj = " "
Do Until EOF(1)
Line Input #1, NextLine
NextLine1 = NextLine
NextLine1 = charu1 & NextLine1 & charu2
Txt_sj = Txt_sj & NextLine & Chr(13) & Chr(10)
sj = sj & NextLine1 & Chr(13) & Chr(10)
Loop
Close
txtEdit = Left(Txt_sj, Len(Txt_sj) - 2)
sj = Left(sj, Len(sj) - 2)
End Sub

Private Sub cmdEdit_Click()
txtEdit = sj
End Sub

Private Sub cmdSave_Click()
Dim NextLine As String
Open "D:\cldj_sj.txt " For Output As #1
Print #1, txtEdit
Close
End Sub
[解决办法]
把控件改成listbox ,在最后加一段代码：

List1.AddItem "共计 " & List1.ListCount & "行 "

如：

With List1
.Clear
.AddItem "gd gh e fv "
.AddItem "hello "
.AddItem "the big world "
End With
List1.AddItem "共计 " & List1.ListCount & "行 "