PDA

مشاهده نسخه کامل : ربط عبارات درون تکست باکس به هم



hamalous
17-12-14, 09:30
سلام یه سوال داشتم اگه ممکنه لطفا پاسخ بدید فرض کنید دو تا تکست باکس داریم که دو تا ستون داره مثلا تو تکست باکس 1 عبارات بصورت زیر هست:
a 1234
b 87653
c 123456
و تو تکست باکس دوم هم بصورت زیر:
a 78
b 8765
c 098
حالا من می خوام این دو عبارت رو با توجه به ستون اول به هم ربط بدم یعنی اگه در هر دو تکست باکس ستون اول a بود خروجی بشه
1234 78

ممنون

designme
17-12-14, 12:22
سلام یه سوال داشتم اگه ممکنه لطفا پاسخ بدید فرض کنید دو تا تکست باکس داریم که دو تا ستون داره مثلا تو تکست باکس 1 عبارات بصورت زیر هست:
a 1234
b 87653
c 123456
و تو تکست باکس دوم هم بصورت زیر:
a 78
b 8765
c 098
حالا من می خوام این دو عبارت رو با توجه به ستون اول به هم ربط بدم یعنی اگه در هر دو تکست باکس ستون اول a بود خروجی بشه
1234 78

ممنون

سلام
برای هر textbox یک آرایه بسازید



Dim temparray1() As String = Split(tb1, "\n")

Dim tbarray1(temparray1.Length-1, 1) As String
سپس در یک حلقه(برای هر textbox) مقادیر رو به آرایه اصلی بریزید(بصورت مستقیم هم قابل انجام هست)


Array.Copy(temparray1.Split(" "), tbarray1(i), 2)

در آخری با یک حلقه مقادیر آرایه ها رو مقایسه کنید و در خروجی نمایش بدید

hamalous
19-12-14, 18:35
سلام
برای هر textbox یک آرایه بسازید



Dim temparray1() As String = Split(tb1, "\n")

Dim tbarray1(temparray1.Length-1, 1) As String
سپس در یک حلقه(برای هر textbox) مقادیر رو به آرایه اصلی بریزید(بصورت مستقیم هم قابل انجام هست)


Array.Copy(temparray1.Split(" "), tbarray1(i), 2)

در آخری با یک حلقه مقادیر آرایه ها رو مقایسه کنید و در خروجی نمایش بدید
ببخشید ولی اصلا متوجه منظورتون نشدم

designme
20-12-14, 09:02
ببخشید ولی اصلا متوجه منظورتون نشدم

یک راه حل برای شما این هست که مقادیر "تکست باکس" هاتون رو بریزید تو آرایه های دو بعدی، سپس آرایه ها رو با اندیس های برابر مقایسه کنید