سلام من می خوام عکس عمل پست 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
Bookmarks