Amit13
Well-Known Member
سلام دوستان
من يك رشته داخل editbox ام دارم مثل زير :
حالا ميخوام هر كدام از كلمات ABL , Yes و I در يك رشته ي جدا قرار بگيره.
نظر خودم اينه كه ابتدا كاركتر هاي space اول رشته رو پاك كنم و وقتي به غير space رسيدم اونو با تابه strcopy وارد رشته ي جدا كنم.
از الگوريتم زير براي حذف space هاي ابتدايي استفاده كردم ولي يك error عجيب ميده.
فقط دوتا از space ها رو پاك ميكنه و break ميكنه
ممنون ميشم اگه راهمنايي كنيد.
من يك رشته داخل editbox ام دارم مثل زير :
کد:
ABL Yes I
حالا ميخوام هر كدام از كلمات ABL , Yes و I در يك رشته ي جدا قرار بگيره.
نظر خودم اينه كه ابتدا كاركتر هاي space اول رشته رو پاك كنم و وقتي به غير space رسيدم اونو با تابه strcopy وارد رشته ي جدا كنم.
از الگوريتم زير براي حذف space هاي ابتدايي استفاده كردم ولي يك error عجيب ميده.
کد:
l=LEN(EditBox$)
For i=1 To l
s$=StrCopy(EditBox$,i,1)
s=ORD(s$)
If (s=32) Then
EditBox$=StrDel(EditBox$,1,1)
Else
Message("EditBox$","s")
Break()
End
Next i
فقط دوتا از space ها رو پاك ميكنه و break ميكنه
ممنون ميشم اگه راهمنايي كنيد.