Hassan2500
شنبه 13 خرداد 1391, 22:23 عصر
سلام
من ميخوام کد زیر تغییر کنه و اینطوری بشه که در تکست1 اعداد رو مينويسيم و در تکست2 حروف طبق اون اعداد شمارش ميشن و در تکست3 نوشته ميشن حالا من ميخوام که اگه حروف تکست2 دوبار یا بیشتر تکرار شدن اگه در شمارش در قسمت حروف تکراری قبلا يکبار انتخاب شدن در قسمت اول ديگه انتخاب نشن و از حرف بعدش شروع به شمارش شود
مثلا براي کامند1 در اين کد
مثلا حروف شمارشمان در تکست1
تکست1: 1 8 3
تکست2: ابجدابتثابجدابتث
ابجدابتث > دوبار تکرار شده
بايد تکست3 بشه: ا ب ا
که در اينجا از اول حروف تکست2 شمارديم شد (ا) بعد هشت تا از بعد از (ا) شمارديم شد (ا) ولي (ا) را نمينويسيم و (ب) بعدش را مينويسيم چون در قسمت اولش تکرار شده و بعد سه تا از بعد (ب) ميشماريم ميشود (ا) و مينويسيم چون در قسمت اولش تکرار نشده
واگه ميشه کامند2 رو هم که هميشه از اول حروف ميشماريم اگه حروف دوبار نوشته و تکرار شدن در تکست2 حروف تکراري نوشته نشن و حرف بعدش نوشته شود
Private Sub Command1_Click()
Dim i%, a$()
a = Split(Text1, " ")
Text3 = ""
For i = LBound(a) To UBound(a)
a(i) = CInt(a(i))
If i > LBound(a) Then a(i) = a(i) + CInt(a(i - 1))
Text3 = Text3 & Mid(Text2, CInt(a(i)), 1) & " "
Next
End Sub
Private Sub Command2_Click()
Dim sNums$(), CurNum
sNums$ = Split(Text1, " ")
Text3 = ""
For Each CurNum In sNums$
Text3 = Text3 & Mid(Text2, Int(CurNum), 1) & " "
Next
End Sub
من ميخوام کد زیر تغییر کنه و اینطوری بشه که در تکست1 اعداد رو مينويسيم و در تکست2 حروف طبق اون اعداد شمارش ميشن و در تکست3 نوشته ميشن حالا من ميخوام که اگه حروف تکست2 دوبار یا بیشتر تکرار شدن اگه در شمارش در قسمت حروف تکراری قبلا يکبار انتخاب شدن در قسمت اول ديگه انتخاب نشن و از حرف بعدش شروع به شمارش شود
مثلا براي کامند1 در اين کد
مثلا حروف شمارشمان در تکست1
تکست1: 1 8 3
تکست2: ابجدابتثابجدابتث
ابجدابتث > دوبار تکرار شده
بايد تکست3 بشه: ا ب ا
که در اينجا از اول حروف تکست2 شمارديم شد (ا) بعد هشت تا از بعد از (ا) شمارديم شد (ا) ولي (ا) را نمينويسيم و (ب) بعدش را مينويسيم چون در قسمت اولش تکرار شده و بعد سه تا از بعد (ب) ميشماريم ميشود (ا) و مينويسيم چون در قسمت اولش تکرار نشده
واگه ميشه کامند2 رو هم که هميشه از اول حروف ميشماريم اگه حروف دوبار نوشته و تکرار شدن در تکست2 حروف تکراري نوشته نشن و حرف بعدش نوشته شود
Private Sub Command1_Click()
Dim i%, a$()
a = Split(Text1, " ")
Text3 = ""
For i = LBound(a) To UBound(a)
a(i) = CInt(a(i))
If i > LBound(a) Then a(i) = a(i) + CInt(a(i - 1))
Text3 = Text3 & Mid(Text2, CInt(a(i)), 1) & " "
Next
End Sub
Private Sub Command2_Click()
Dim sNums$(), CurNum
sNums$ = Split(Text1, " ")
Text3 = ""
For Each CurNum In sNums$
Text3 = Text3 & Mid(Text2, Int(CurNum), 1) & " "
Next
End Sub