کمک در مورد جابجایی قسمتی از متن

[ravegoat]

سلام ممنون بابت کدتون من می خوام 1 عبارت بصورت مثلا 5-5 12345 رو به 10 عبارت 123450 الی 123459 با ستون دوم 4-4 تبدیل کنم کد زیر رو درست کردم ولی نمی دونم اشکالش کجاست درست عمل نمیکنه ممنون میشم راهنمایی کنید
Private Sub Command1_Click()
On Error Resume Next
Dim tmp As String
Dim filepath As String
cmdg.ShowOpen
filepath = cmdg.FileName
Open filepath For Input As #1
tmp = Input(LOF(1), #1)
Close #1
Text1.Text = tmp
Dim i%
Dim x() As String
x = Split(Text1.Text, vbCrLf)
Dim y() As String, z As String, a As Integer
Open filepath For Output As #1
For i = 0 To UBound(x)
y() = Split(x(i), vbTab)
For j = 0 To 9
Text1.Text = Replace(Text1.Text, Left(y(0), 5) + vbTab + "5-5", Left(y(0), 5) + CStr(j) + vbTab + "4-4")
Next j
Next
Print #1, Text1.Text
Close #1
End Sub

سلام!

خواهش می کنم...

اشکال اینجاست که رشته های مورد نظر شما ده بار با رشته ی حاوی بخش 5-5 جایگزین میشه. در نتیجه در اجرای اول حلقه رشته ی حاوی 4-4 با رشته ی حاوی 5-5 جایگزین میشه و در اجرا های بعدی دیگه رشته ی 5-5 وجود نخواهد داشت که رشته های جدید بخوان اضافه بشن!

میشه کد رو به شکل زیر تغییر داد:

Private Sub Command1_Click()
On Error Resume Next
Dim tmp As String
Dim filepath As String
cmdg.ShowOpen
filepath = cmdg.FileName
Open filepath For Input As #1
tmp = Input(LOF(1), #1)
Close #1
Text1.Text = tmp
Dim i%
Dim x() As String
x = Split(Text1.Text, vbCrLf)
Dim y() As String, z As String, j As Integer
Open filepath For Output As #1
For i = 0 To UBound(x)
y() = Split(x(i), vbTab)
z = Left(y(0), 5) + "0" + vbTab + "4-4"
For j = 1 To 9
z = z + vbCrLf + Left(y(0), 5) + CStr(j) + vbTab + "4-4"
Next j
Text1.Text = Replace(Text1.Text, x(i), z)
Next i
Print #1, Text1.Text
Close #1
End Sub

موفق باشید
آرمین