انتخاب حروف در تکست

[Hassan2500]

سلام
دوتا کد میخوام
1- میخوام اعدادی که در تکست1 مینویسم یا ظاهر میشه طبق اون اعداد حروف تکست2 در تکست3 نوشته شود
مثال
تکست1: 2 5 1
تکست2: ا ب ج د ه و ز ح ط ی
تکست3: ب ز ح
ابتدا عدد اول 2 است دو تا میشماریم از حروف تکست2 میشه حرف (ب) بعد از (ب) 5تا میشماریم میشه حرف (ز) بعد از (ز) یکی میشماریم میشه (ح)

2- میخوام حروف تکست1 یکی در میان در تکست2 (از حرف اول شروع به شمارش شود) نوشته شوند و یکی در میان در تکست3 نوشته شود (از حرف دوم شروع به شمارش شود)
مثال
تکست1: ا ب ج د ه و
تکست2:ا ج ه
تکست3: ب د و

[arenaw]

سلام
این کد اولی:

Dim a%(), i%
ReDim a(Len(Text1))
For i = 1 To Len(Text1)
a(i) = CInt(Mid(Text1, i, 1)) + IIf(i <> 0, a(i - 1), 0)
Text3 = Text3 & Mid(Text2, a(i), 1)
Next


اینم دومی:

Dim i%
For i = 1 To Len(Text1) Step 2
Text2 = Text2 & Mid(Text1, i, 1)
Next
For i = 2 To Len(Text1) Step 2
Text3 = Text3 & Mid(Text1, i, 1)
Next

[Hassan2500]

متاسفانه دو تا کد بخوبی کار نمیکنند و چنیدن حرف با زدن یک دکمه از حروف در تکست3 وارد میشه بعدش میخوام بین هر حرف یک فاصله در تکست3 باشه

[arenaw]

خب شما باید تو دومی اول text 2 و text 3 رو خالی کنی
تو اولی هم فقط text 3 رو خالی کنی
اینطوری:
Text2 = ""
واسه فاصله هم هرجا تو کد اینجوری بود:
Text3 = xxxxxxx
شما اینطوریش کن
Text3 = xxxxxxx & " "

[Hassan2500]

همه اینکار را رو کردم نشد اصلاً بعدش چیزی نمینویسه

[arenaw]

والا منم همین کارایی که گفتم و کردم
87513

[Hassan2500]

دستت درد نکنه جناب arenaw الآن دو تا کد درست و بخوبی کار میکنند یه زحمت دیگه واست دارم اینه کد اولی رو کاری کنی که اعداد را براساس اول حروف محاسبه کند
کد اولی
تکست1: 2 5 1
تکست2: ا ب ج د ه و ز ح ط ی
تکست3: ب ز ح
در این حالت از حرفی که انتخاب میشه از بعد اون شمارش میشه
الآن اینطوری بشه
تکست1: 2 5 1
تکست2: ا ب ج د ه و ز ح ط ی
تکست3: ب ه ا
از اول حروف همیشه شروع به شمارش شود مثلاً از اول حروف دوتا میشماریم میشه ب باز از اول حروف 5 میشماریم میشه ه و...

[arenaw]

یه کامند دیگه رو فرم بزار و این کد رو واسش بنویس

Dim i%
Text3 = ""
For i = 1 To Len(Text1)
Text3 = Text3 & Mid(Text2, Mid(Text1, i, 1), 1) & " "
Next

[Hassan2500]

کد پست 8 بخوبی کار کرد ولی یه کاری کنید که در دو حالت کد اولی چه شمارش بر اساس حرف اول باشه یا نباشه عدد دو رقمی هم محاسبه شود در این حالات فقط اعداد یک رقمی تکست1 حروفش در تکست2 جدا میشود مثلاً کاری کنید که تکست1 اگه اعداد دو رقمی هم بودند انجام شود فکر کنم که با فاصله انداختن بین اعداد تکست1 بشود اعداد دو رقمی را هم وارد کرد اگه میشه دو حالت کد رو در مورد کد اولی بنویسید که علاوه بر یک رقمی دو رقمی هم محاسبه شود

مثال در حالت اول
تکست1: 2 10
تکست2: ا ب ج د ه و ز ح ط ی ک ل م ن
تکست3: ب ل
مثال در حالت دوم
تکست1: 2 10
تکست2: ا ب ج د ه و ز ح ط ی ک ل م ن
تکست3: ب ی

[Hassan2500]

جناب arenaw اگه میشه کد پست 9 رو واسم بنویسید

[arenaw]

بفرمایید اینم کد پست 9

[Hassan2500]

جناب arenaw اگه میشه کامند3 را هم مانند کامند1 کاری کنید عدد دو رقمی را هم محاسبه کند الآن فقط کامند1 عدد دو رقمی را محاسبه میکند.

[arenaw]

دوست عزیز خب این چیزای به این سادگی دیگه پرسیدن داره؟

[Hassan2500]

من برنامه نویس نیستم فقط بلدم کدا رو بکار ببرم

[arenaw]

خب کسایی که میان اینجا ، یا میان یاد بگیرن یا میان کمک کنن به بقیه دوستان
ولی کار شما دقیقا مثل همون درخواست پروژه میمونه که هم ممنوعه هم آدم حس خوبی نداره وقتی کد رو بهتون میده

[Hassan2500]

حالا شما زحمتشو بکشید تا الآن بیشترشو رو نوشتید و کد پست12 رو هم جواب بدید ممنون میشم و من درخواست پروژه نمیدم فقط این چندتا کد رو میخوام

[محسن واژدی]

کد پست 8 بخوبی کار کرد ولی یه کاری کنید که در دو حالت کد اولی چه شمارش بر اساس حرف اول باشه یا نباشه عدد دو رقمی هم محاسبه شود در این حالات فقط اعداد یک رقمی تکست1 حروفش در تکست2 جدا میشود مثلاً کاری کنید که تکست1 اگه اعداد دو رقمی هم بودند انجام شود فکر کنم که با فاصله انداختن بین اعداد تکست1 بشود اعداد دو رقمی را هم وارد کرد اگه میشه دو حالت کد رو در مورد کد اولی بنویسید که علاوه بر یک رقمی دو رقمی هم محاسبه شود

مثال در حالت اول
تکست1: 2 10
تکست2: ا ب ج د ه و ز ح ط ی ک ل م ن
تکست3: ب ل
مثال در حالت دوم
تکست1: 2 10
تکست2: ا ب ج د ه و ز ح ط ی ک ل م ن
تکست3: ب ی
سلام علیکم
با اجازه جناب arenaw
کد زیر را جایگزین کد Command1 در نمونه Form1.frm پست 6 کنید:
Private Sub Command1_Click()
Dim sNums$(), CurNum
sNums$ = Split(Text1, " ")
Text3 = ""
For Each CurNum In sNums$
Text3 = Text3 & Mid(Text2, Int(CurNum), 1) & " "
Next
End Sub

موفق باشید