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

[ravegoat]

دوست عزیز ممنون بابت کد ولی مشکل اینجاست که من فقط می خوام اوناییکه ستون دومشون 5-5 رو تبدیل کنه ولی این کد اگه عبارتی ستون دومش 4-4 باشه هم به 10 عبارت تبدیل می کنه ،اگه به اینصورت نمیشه برعکسش هم باشه کار من رو راه میندازه یعنی 10 عدد با ستون دوم 4-4 رو به یک عدد با ستون دوم 5-5 تبدیل کنه به طور مثال 10 عدد 123450 الی 123459 با ستون دوم 4-4 به 1 عبارت بصورت 12345 با ستون دوم 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)
If y(1) = "5-5" Then
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)
End If
Next i
Print #1, Text1.Text
Close #1
End Sub