از دوستان کسی نیست مشکل من رو حل کنه ؟من سورس برنامه رو همراه دو نمونه فایل تکست قرار می دم فایل تکست 2 باید به فایل 1 تبدیل بشه ممنون
Printable View
از دوستان کسی نیست مشکل من رو حل کنه ؟من سورس برنامه رو همراه دو نمونه فایل تکست قرار می دم فایل تکست 2 باید به فایل 1 تبدیل بشه ممنون
سلام من می خوام عکس عمل پست 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
سلام دوستان من دو تا سورس دارم که درون آنها دو تا فایل تکست هست که می خوام فایل تکست 1 به 2 تبدیل بشه ولی هیچکدوم از سورسها درست عمل نمیکنه اگه دوستان می تونند لطف کنند و مشکل هر کدوم رو تونستند برطرف کنند ممنون
سلام!نقل قول:
اگر این شماره ها به ترتیب از صفر تا 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
نقل قول:
تاپیک به دلیل طرح مکرر سوال های تقریبا مشابه که سبب طولانی شدن آن گردید، قفل می شود.:lock: