(۲۸-مرداد-۱۳۹۲, ۱۹:۱۸:۳۰)babyy نوشته است: [ -> ]سلام
به فروم خوش اومدی
من فایل‌ها رو دیدم ولی بازم متوجه نشدم منظورتون چیه!
(۲۸-مرداد-۱۳۹۲, ۲۰:۳۰:۲۰)babyy نوشته است: [ -> ]خب وجه مشترک بین اون ۱۰ تا عبارت و 5-5 12345 در چیه؟رابطه عبارات به این صورت که توی 10 عبارت ،رقم آخر حذف میشه و 1 عدد به ستون دوم اضافه میشه یعنی 4-4 میشه 5-5
یعنی الگوریتمش چطوری باید باشه؟
(۲۸-مرداد-۱۳۹۲, ۲۳:۲۷:۱۱)babyy نوشته است: [ -> ]ببینید درست متوجه شدم:سلام ممنون تا حدی درسته ، عدد آخر سمت چپی رو حذف کنه و یکی به سمت راستی اضافه کنه بعد از اینکه اینکار رو کرد 10 عدد شبیه هم میشند خب، برای مثال بالا میشه 10 تا 5-5 12345 درسته حالا از این اعداد می خوام 9 تاش پاک بشه و فقط یکیش بمونه و یه نکته دیگه هم که باید رعایت بشه اینه که این موضوع به عنوان شرط باید مطرح بشه یعنی توی این شرط بگه که مثلا اگه 10 تا عدد ببصورت که گفته شد وجود داشت اونا رو تبدیل به یک عبارت کنه چون داخل فایل عباراتی بغیر از این عبارات هم وجود داره مثلا ممکنه 1دونه عبارت 4-4 548796 و یا 1 دونه عبارت 6-6 1254 وجود داشته باشه این عبارات شامل شرایط تبدیل نمی شن چون تعداد اونها 10 تا نیست ممنون
۱۰ تا عدد رو بگیره؛ این اعدا از دو بخش درست شدن؛ مثلا:
4-4 123450
باید از عدد سمت راستی؛ عدد آخریش رو حذف کنه؛ و به عدد سمت چپی هرچی که بود یکی اضافه کنه
درست است؟
Private Sub Command1_Click()
Dim repeat As Boolean
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 x() As String
x = Split(Text1.Text, vbCrLf)
Dim y(100) As String
For i = 0 To UBound(x)
x(i) = Mid(x(i), 1, 6)
Next
For i = 0 To UBound(x)
Counter = 0
For j = i + 1 To UBound(x)
If x(i) <> x(j) And Mid(x(i), 1, 5) = Mid(x(j), 1, 5) Then
Counter = Counter + 1
If Counter = 9 Then
Text2.Text = Text2.Text & vbCrLf & Mid(x(i), 1, 5) & " 5-5"
k = k + 1
y(k) = Mid(x(i), 1, 5)
Counter = 0
i = i + 1
Exit For
End If
End If
Next
repeat = False
For p = 1 To UBound(x)
If y(p) = Mid(x(i), 1, 5) Then
p = p + 1
repeat = True
Exit For
End If
Next
If Not repeat Then Text2.Text = Text2.Text & vbCrLf & x(i) & " 5-5"
Next
End Sub
Private Sub Command1_Click()
Dim n As Integer
n = Mid(Text1.Text, 1, 5)
k = Mid(Text1.Text, 9, 9)
For i = 0 To 100
n = n + 1
List1.AddItem n & " " & k & "-" & k
m = Mid(n, 5, 5)
If m Mod 10 Then
k = k + 1
End If
Next
End Sub(۲۹-مرداد-۱۳۹۲, ۱۳:۴۶:۵۹)Ghoghnus نوشته است: [ -> ]اگه درست متوجه شده باشم اینطوری میشه!ممنون دوست عزیز من متوجه نشدم این کل کد هست یا کدی رو که نوشتین باید در قسممتی از برنامه قرار دادبهرحال موقع کامپایل از خط سوم ایراد میگره ،از on error هم استفاده کردم ولی خروجی نداره
کد:Private Sub Command1_Click()
Dim n As Integer
n = Mid(Text1.Text, 1, 5)
k = Mid(Text1.Text, 9, 9)
For i = 0 To 100
n = n + 1
List1.AddItem n & " " & k & "-" & k
m = Mid(n, 5, 5)
If m Mod 10 Then
k = k + 1
End If
Next
End Sub