جدا کردن اجزا جمله با vb

[vb_girl]

سلام دوستان من یک جمله دارم مثل این salam+khobi azizam
Øالا Ù…ÛŒ خام او به این Ø´Ú©Ù„ جداش کنم (salam) (khobi azizam)
با این تابع موفق نشدم

j1 = Split(jomle, "+")(0)
j2 = Split(jomle, "+")(1)

به این شکل جدا میکنه
(salam) (khobi)
azizam رو دیگه داخل قسمت دوم قرار نمی دهد Øالا کسی این اشکال رو بلده ØÙ„ کنه

[nasim]

اگه دنبال ساختن Query برا Sql با جمله دريافتي هستيد راه ساده تري برا اينكار موجوده

راهنمايي :

به فرض Blank و علامت + رو با درستوارت شرطي AND جايگزين كنيد
و علامت || يا هر علامتي رو ياي منطقي OR قرار بديد .... !

--------------------------

جستجو كني سورس زياده اين نمونه دلفي برا برا جدا سازي

procedure SplitSentence(Sentence: String; SplitNumber: Integer; const Words: TStrings);
var i, j: Integer;
    Delimit: Char;
    w: String;
begin
 Assert(Assigned(Words)); Delimit := ' ';
 with TStringList.Create do try
      Clear; Delimiter := Delimit;
      DelimitedText := Sentence;
      Words.Clear;
      if Count<=SplitNumber then begin
         Words.Add(Sentence); Exit;
      end;
      i:=-1;
      repeat
        Inc(i); w:=Strings[i];
        if i<(Count-1) then begin
           for j:=2 to SplitNumber do begin
               Inc(i); w:=w+Delimit+Strings[i];
               if i>=(Count-1) then Break;
           end;
        end;
        Words.Add(w);
      until i>=(Count-1);
 finally Free; end;
end;

// --------------- DEMO ------------------

procedure TForm1.Button1Click(Sender: TObject);
begin
  SplitSentence('I am here working with my sister and she is working right now', 2, Memo1.Lines);
end;

[r3dm0v3]

اگر جمله همیشه به شکله:
xxx+yyy zzz
از دستورات زیر استفاده کن:

a="xxx+yyy zzz"
a1=split(a,"+")(0)
a2=split(a,"+")(1)

اگر جمله به شکله:
xxx+yyy+zzz
از دستورات زیر استفاده کن:

a="xxx+yyy+zzz"
ax=split(a,"+")
a1=ax(0)
a2=ax(1) & ax(2)

اگر جمله به شکله:
aaa+bbb+ccc+ddd+...
اونوقت بستگی داره که دقیقا برای چه کاری میخوای (کدوم قسمت از جمله رو میخوای)