جدا کردن رشته

[مجتبی کریمی]

سلام

یه تعدادی خطوط به این شکل هستند که من می خوام اونارو از هم جدا کنم. یکی از این خطوط می تونه این شکلی باشه.



STORY "ST ROOM" HEIGHT 1.7

یا



GRID "GLOBAL" LABEL " " DIR "X" COORD 0 GRIDTYPE "PRIMARY" BUBBLELOC "DEFAULT" GRIDHIDE "NO"

مشکل اینجاست که کلماتی که تو دابل کوتیشن هستند مثل "ST ROOM" نباید از هم جدا بشن و باید به صورت یه کلمه واحد دیده بشه.

آیا راه حل شسته رفته ای برای این کار وجود داره؟

با تشکر

[مهرداد صفا]

با سلام.
ابتدا متن را با استفاده از کاراکتر مورد نظر تجزیه کنید و سپس اندیس های فرد را انتخاب کنید:

Dim text As String = "STORY 'ST ROOM' HEIGHT 1.7"
text = " " + text.Replace("''", "' '")
Dim q1 = From word In text.Split("'") Select word.Where(Function(x) x <> " ").ToArray
For i = 0 To q1.Count - 1
If i Mod 2 = 1 Then Console.WriteLine(q1(i))
Next



فراموش نکنید که در کد بالا کاراکتر ' را با " با استفاده از کد ascii جایگزین کنید.

[مجتبی کریمی]

ممنون بابت جواب دادنتون ولی نتونستم اجراش کنم .. یعنی جواب درست نتونستم ازش بگیرم.
خط سوم رو هم که اصلا متوجه نمی شم!

لطفا اگه می شه بیشتر توضیح بدید.

ممنون