(۲۹-مرداد-۱۳۹۲, ۱۴:۲۴:۱۳)Ghoghnus نوشته است: [ -> ]کل برنامه هستشممنون ولی دوست عزیز این اصلا نزدیک اون چیزی که من می خوام هم نیست لطفا برای اینکه متوجه منظور من بشین پست 8 رو بخونید باز هم از توجه تون ممنون
واستون اتچش کردم هیچ خطایی هم نمیده!
(۲۹-مرداد-۱۳۹۲, ۱۴:۴۷:۳۵)hamalous نوشته است: [ -> ](۲۹-مرداد-۱۳۹۲, ۱۴:۲۴:۱۳)Ghoghnus نوشته است: [ -> ]کل برنامه هستشممنون ولی دوست عزیز این اصلا نزدیک اون چیزی که من می خوام هم نیست لطفا برای اینکه متوجه منظور من بشین پست 8 رو بخونید باز هم از توجه تون ممنون
واستون اتچش کردم هیچ خطایی هم نمیده!
نقل قول: 12345 5-5بیشتر توضیح بدین لطفا
12346 6-6
(۲۹-مرداد-۱۳۹۲, ۱۵:۰۹:۳۰)Ghoghnus نوشته است: [ -> ]ممنون دوست عزیز ببینید شاید مرحله به مرحله توضیح بدم بهتره به عنوان مرحله اول من می خوام 10 تا عبارت بصورت زیر :(۲۹-مرداد-۱۳۹۲, ۱۴:۴۷:۳۵)hamalous نوشته است: [ -> ](۲۹-مرداد-۱۳۹۲, ۱۴:۲۴:۱۳)Ghoghnus نوشته است: [ -> ]کل برنامه هستشممنون ولی دوست عزیز این اصلا نزدیک اون چیزی که من می خوام هم نیست لطفا برای اینکه متوجه منظور من بشین پست 8 رو بخونید باز هم از توجه تون ممنون
واستون اتچش کردم هیچ خطایی هم نمیده!
چند بار خوندم ولی متوجه نشدم الگریتمش چطوریه هست!
شما میخوااهید رقم اخر بشه ستون دوم؟
نقل قول: 12345 5-5بیشتر توضیح بدین لطفا
12346 6-6
یا بگید این خروجی من چه شکلی بشه میشه جواب شما؟
(۲۹-مرداد-۱۳۹۲, ۱۵:۵۴:۲۷)hamalous نوشته است: [ -> ](۲۹-مرداد-۱۳۹۲, ۱۵:۰۹:۳۰)Ghoghnus نوشته است: [ -> ]ممنون دوست عزیز ببینید شاید مرحله به مرحله توضیح بدم بهتره به عنوان مرحله اول من می خوام 10 تا عبارت بصورت زیر :(۲۹-مرداد-۱۳۹۲, ۱۴:۴۷:۳۵)hamalous نوشته است: [ -> ](۲۹-مرداد-۱۳۹۲, ۱۴:۲۴:۱۳)Ghoghnus نوشته است: [ -> ]کل برنامه هستشممنون ولی دوست عزیز این اصلا نزدیک اون چیزی که من می خوام هم نیست لطفا برای اینکه متوجه منظور من بشین پست 8 رو بخونید باز هم از توجه تون ممنون
واستون اتچش کردم هیچ خطایی هم نمیده!
چند بار خوندم ولی متوجه نشدم الگریتمش چطوریه هست!
شما میخوااهید رقم اخر بشه ستون دوم؟
نقل قول: 12345 5-5بیشتر توضیح بدین لطفا
12346 6-6
یا بگید این خروجی من چه شکلی بشه میشه جواب شما؟
4-4 123450
4-4 123451
4-4 123452
4-4 123453
4-4 123454
4-4 123455
4-4 123456
4-4 123457
4-4 123458
4-4 123459
تبدیل بشه به :
5-5 12345
الگوریتم هم به این صورت که رقم آخر اون 10 عبارت حذف و در عوض 1 رقم به ستون دوم اضافه میشه فعلا این کار اصلی هست اگه متوجه این موضوع شدین من مراحل بعد رو در پستهای بعدی عرض میکنم ممنون
نقل قول: 4-4 123450
4-4 123451
4-4 123452
4-4 123453
4-4 123454
4-4 123455
4-4 123456
4-4 123457
4-4 123458
4-4 123459
---------
5-5 123450
5-5 123451
5-5 123452
5-5 123453
5-5 123454
5-5 123455
5-5 123456
5-5 123457
5-5 123458
5-5 123459
(۲۹-مرداد-۱۳۹۲, ۱۶:۰۷:۰۹)Ghoghnus نوشته است: [ -> ]خیر دوست عزیز رقم آخر ستون اول حذف میشه و یکی به ستون دوم اضافه یعنی بصورت زیر:(۲۹-مرداد-۱۳۹۲, ۱۵:۵۴:۲۷)hamalous نوشته است: [ -> ](۲۹-مرداد-۱۳۹۲, ۱۵:۰۹:۳۰)Ghoghnus نوشته است: [ -> ]ممنون دوست عزیز ببینید شاید مرحله به مرحله توضیح بدم بهتره به عنوان مرحله اول من می خوام 10 تا عبارت بصورت زیر :(۲۹-مرداد-۱۳۹۲, ۱۴:۴۷:۳۵)hamalous نوشته است: [ -> ](۲۹-مرداد-۱۳۹۲, ۱۴:۲۴:۱۳)Ghoghnus نوشته است: [ -> ]کل برنامه هستشممنون ولی دوست عزیز این اصلا نزدیک اون چیزی که من می خوام هم نیست لطفا برای اینکه متوجه منظور من بشین پست 8 رو بخونید باز هم از توجه تون ممنون
واستون اتچش کردم هیچ خطایی هم نمیده!
چند بار خوندم ولی متوجه نشدم الگریتمش چطوریه هست!
شما میخوااهید رقم اخر بشه ستون دوم؟
نقل قول: 12345 5-5بیشتر توضیح بدین لطفا
12346 6-6
یا بگید این خروجی من چه شکلی بشه میشه جواب شما؟
4-4 123450
4-4 123451
4-4 123452
4-4 123453
4-4 123454
4-4 123455
4-4 123456
4-4 123457
4-4 123458
4-4 123459
تبدیل بشه به :
5-5 12345
الگوریتم هم به این صورت که رقم آخر اون 10 عبارت حذف و در عوض 1 رقم به ستون دوم اضافه میشه فعلا این کار اصلی هست اگه متوجه این موضوع شدین من مراحل بعد رو در پستهای بعدی عرض میکنم ممنون
ستون اول ثابت باشه ولی 10بار یکی به ستون دوم اضافه بشه؟
مثل این
نقل قول: 4-4 123450
4-4 123451
4-4 123452
4-4 123453
4-4 123454
4-4 123455
4-4 123456
4-4 123457
4-4 123458
4-4 123459
---------
5-5 123450
5-5 123451
5-5 123452
5-5 123453
5-5 123454
5-5 123455
5-5 123456
5-5 123457
5-5 123458
5-5 123459
Private Sub Button1_Click()
On Error Resume Next
Dim tmp As String
Dim filepath As String
cmdg.CancelError = True
cmdg.ShowOpen
If Err = 32755 Then
Exit Sub
End If
filepath = cmdg.FileName
Open filepath For Input As #1
tmp = Input(LOF(1), #1)
Close #1
out = tmp
Dim i%
Dim x() As String
x = Split(out, 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) = "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
out = Replace(out, x(i), z)
End If
Next i
Text1 = out
Close #1
MsgBox "ÚãáíÇÊ ÇäÌÇã ÔÏ"
End Sub
Dim Num(100, 1) As String
Open "C:\1.txt" For Input As #1
While EOF(1) = False
conter = conter + 1
Input #1, a
Input #1, b
Num(conter, 0) = a
Num(conter, 1) = b
Wend
Close #1
Open "C:\2.txt" For Append As #1
For i = 1 To conter
TempNum = Left(Num(i, 0), Len(Num(i, 0)) - 1)
s = 0
For ii = i To conter
If TempNum = Left(Num(ii, 0), Len(Num(ii, 0)) - 1) Then
s = s + 1
End If
Next ii
If s = 10 Then
Print #1, TempNum & vbTab & CStr(Val(Num(i, 1)) + 1) & "-" & CStr(Val(Num(i, 1)) + 1)
i = i + 9
Else
Print #1, Num(i, 0) & vbTab & CStr(Num(i, 1)) & "-" & CStr(Num(i, 1))
End If
Next i
Close #1
(۳۰-مرداد-۱۳۹۲, ۱۰:۰۲:۰۹)Di Di نوشته است: [ -> ]ممنون دوست عزیز من در پست 17عرض کردم مشکل قبلی من حل شده و یک سوال جدید دارم به هر حال از اینکه لطف کردین و وقت گذاشتین خیلی خیلی ممنوناميدوارم كمك كنهکد php:Dim Num(100, 1) As String
Open "C:\1.txt" For Input As #1
While EOF(1) = False
conter = conter + 1
Input #1, a
Input #1, b
Num(conter, 0) = a
Num(conter, 1) = b
Wend
Close #1
Open "C:\2.txt" For Append As #1
For i = 1 To conter
TempNum = Left(Num(i, 0), Len(Num(i, 0)) - 1)
s = 0
For ii = i To conter
If TempNum = Left(Num(ii, 0), Len(Num(ii, 0)) - 1) Then
s = s + 1
End If
Next ii
If s = 10 Then
Print #1, TempNum & vbTab & CStr(Val(Num(i, 1)) + 1) & "-" & CStr(Val(Num(i, 1)) + 1)
i = i + 9
Else
Print #1, Num(i, 0) & vbTab & CStr(Num(i, 1)) & "-" & CStr(Num(i, 1))
End If
Next i
Close #1
(۳۰-مرداد-۱۳۹۲, ۱۱:۳۵:۴۴)Di Di نوشته است: [ -> ]درسته اما اگر به كدها دقت كنيد مي بينيد كه اين كد مشكل جديد شما رو هم حل مي كنه،كافيه در شرط انتهايي به جاي چك كردنممنون دوست عزیز ولی اگه درست دقت کنید مشکلی که در پست 17 مطرح کردم عکس مشکل قبلی هست یعنی 1 عبارت به 10 عبارت تبدیل میشه اگه میشه لطف کنید و یک جمله شرطی به کدی که در پست 17 قرار دادم اضافه کنید ممنون
s= 10 اون رو به صورت s >= 10 تغيير بديد!
Dim Num(100, 1) As String
Open "C:\2.txt" For Input As #1
While EOF(1) = False
conter = conter + 1
Input #1, a
Input #1, b
Num(conter, 0) = a
Num(conter, 1) = b
Wend
Close #1
Open "C:\3.txt" For Append As #1
For i = 1 To conter
TempNum = Left(Num(i, 0), Len(Num(i, 0)) - 1)
For ii = 0 To 9
Print #1, TempNum & CStr(ii) & vbTab & CStr(Val(Num(i, 1)) - 1) & "-" & CStr(Val(Num(i, 1)) - 1)
Next ii
Next i
Close #1