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

[ravegoat]

سلام من می خوام عکس عمل پست 39 رو انجام بدم کد زیر رو دارم ولی درست عمل نمیکنه میشه لطف کنیدمشکل اون رو رفع کنید ممنون

سورس کد

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
For i = 0 To UBound(x)
y() = Split(x(i), vbTab)
If y(1) = "4-4" Then
a = Left(y(0), 5) + vbTab + "5-5"
For j = 0 To 9
z = Left(y(0), 5) + CStr(j) + vbTab + "4-4"
Next j
End If
Text1 = Replace(Text1, z, a)
Next i
End Sub

سلام!

اگر این شماره ها به ترتیب از صفر تا 9 مرتب شده باشن میشه از کد زیر استفاده کرد. اگر هم غیر از این باشه با مرور کردن کد های قبلی میشه راه حل اش رو به دست آورد.

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
For i = 0 To UBound(x)
    y() = Split(x(i), vbTab)
    If y(1) = "4-4" Then
        a = Left(y(0), 5) + vbTab + "5-5"
        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 = Replace(Text1, z, a)
        i = i + 10
    End If
Next i

تاپیک به دلیل طرح مکرر سوال های تقریبا مشابه که سبب طولانی شدن آن گردید، قفل می شود.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید