تبدیل 10 عبارت به 1 عبارت توسط vb6

[hamalous]

کل برنامه هستش
واستون اتچش کردم هیچ خطایی هم نمیده!

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

[Ghoghnus]

کل برنامه هستش
واستون اتچش کردم هیچ خطایی هم نمیده!

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

چند بار خوندم ولی متوجه نشدم الگریتمش چطوریه هست!
شما میخوااهید رقم اخر بشه ستون دوم؟

12345 5-5

12346 6-6

بیشتر توضیح بدین لطفا
یا بگید این خروجی من چه شکلی بشه میشه جواب شما؟

[hamalous]

کل برنامه هستش
واستون اتچش کردم هیچ خطایی هم نمیده!

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

چند بار خوندم ولی متوجه نشدم الگریتمش چطوریه هست!
شما میخوااهید رقم اخر بشه ستون دوم؟

12345 5-5

12346 6-6

بیشتر توضیح بدین لطفا
یا بگید این خروجی من چه شکلی بشه میشه جواب شما؟

ممنون دوست عزیز ببینید شاید مرحله به مرحله توضیح بدم بهتره به عنوان مرحله اول من می خوام 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 12345
الگوریتم به این صورت که رقم آخر ستون سمت چپ اون 10 عبارت حذف و در عوض 1 رقم به ستون سمت راست اضافه میشه یعنی 4-4 میشه 5-5 این کار اصلی هست اگه میتونین لطف کنید برای این الگوریتم یک کد بنویسید اگه مشکل داشت عرض میکنم ممنون

[Ghoghnus]

کل برنامه هستش
واستون اتچش کردم هیچ خطایی هم نمیده!

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

چند بار خوندم ولی متوجه نشدم الگریتمش چطوریه هست!
شما میخوااهید رقم اخر بشه ستون دوم؟

12345 5-5

12346 6-6

بیشتر توضیح بدین لطفا
یا بگید این خروجی من چه شکلی بشه میشه جواب شما؟

ممنون دوست عزیز ببینید شاید مرحله به مرحله توضیح بدم بهتره به عنوان مرحله اول من می خوام 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 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

[hamalous]

کل برنامه هستش
واستون اتچش کردم هیچ خطایی هم نمیده!

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

چند بار خوندم ولی متوجه نشدم الگریتمش چطوریه هست!
شما میخوااهید رقم اخر بشه ستون دوم؟

12345 5-5

12346 6-6

بیشتر توضیح بدین لطفا
یا بگید این خروجی من چه شکلی بشه میشه جواب شما؟

ممنون دوست عزیز ببینید شاید مرحله به مرحله توضیح بدم بهتره به عنوان مرحله اول من می خوام 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 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

خیر دوست عزیز رقم آخر ستون اول حذف میشه و یکی به ستون دوم اضافه یعنی بصورت زیر:
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
5-5 12345
5-5 12345
5-5 12345
5-5 12345
5-5 12345
5-5 12345
5-5 12345
5-5 12345
5-5 12345
حالا از این 10 تا که شبیه هم هستند 9 تاش حذف میشه فقط یکیش میمونه یعنی در آخر میشه این:
5-5 12345
ممنون

[hamalous]

دوستان مشکل قبلی من حل شد حالا یه خواهش دیگه دارم :

من یه کد دارم به صورت زیر :

کد php:

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 


کد بالا عبارت زیر رو :
5-5 12345
-------------
تبدیل میکنه به :
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 باشه تبدیل رو انجام میده من می خوام علاوه براین شرط یه شرط دیگه هم در نظر بگیره و اون اینه که اگه 5 رقم ستون اول ،عبارت 5-5 12345 ده بار یا بیشتر تکرار شده بود یا بعبارتی اگه از 5 رقم ستون اول 10 تا یا بیشتر وجود داشت تبدیل رو انجام بده ممنون میشم راهنمایی کنید ممنون

[Di Di]

کد 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 


اميدوارم كمك كنه

[hamalous]

کد 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 


اميدوارم كمك كنه

ممنون دوست عزیز من در پست 17عرض کردم مشکل قبلی من حل شده و یک سوال جدید دارم به هر حال از اینکه لطف کردین و وقت گذاشتین خیلی خیلی ممنون

[Di Di]

درسته اما اگر به كدها دقت كنيد مي بينيد كه اين كد مشكل جديد شما رو هم حل مي كنه،‌كافيه در شرط انتهايي به جاي چك كردن

s= 10 اون رو به صورت s >= 10 تغيير بديد!

[hamalous]

درسته اما اگر به كدها دقت كنيد مي بينيد كه اين كد مشكل جديد شما رو هم حل مي كنه،‌كافيه در شرط انتهايي به جاي چك كردن

s= 10 اون رو به صورت s >= 10 تغيير بديد!

ممنون دوست عزیز ولی اگه درست دقت کنید مشکلی که در پست 17 مطرح کردم عکس مشکل قبلی هست یعنی 1 عبارت به 10 عبارت تبدیل میشه اگه میشه لطف کنید و یک جمله شرطی به کدی که در پست 17 قرار دادم اضافه کنید ممنون

[Di Di]

من اين كدها رو نمي زارم كه كپي پيست كنيد بلكه انتظار دارم با توجه به كدهايي كه قرار دادم مشكلتون رو خودتون حل كنيد

كدهاي قبلي رو طوري تغيير دادم تا به طور معكوس عمل كنه،‌اين كار شايد تمام اون چيزي كه مي خواهيد نباشه اما

با كمي فكر كردن روي روش من و تغيير در جزئياتش مي تونيد به هدفتون برسيد

کد php:

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