בעיה במחרוזת

[Dragonuv5]

בעיה במחרוזת

יש לי מחרוזת

start = InStr(1, OriginText, "<font>") + 6 length = InStr(1, OriginText, "</font>") EditedText = Mid(OriginText, start, length - start) Text1.Text = EditedText​

אבל הבעיה היא ש- OriginText מכיל כמה פעמים את <font>. איך אני יעשה שהוא יראה את כולם בנפרד ולא את הראשון?

 

[מילו רמבלדי]

תנסה כך

parts = split(OriginText, "<<font>font>") For j = 1 To UBound(Parts) EditedText = Left$(Parts(i), InStr(Parts(i), "<</font>/font>") - 1)​

 

[מילו רמבלדי]

יש כפילות של ה FONT - תתעלם

 

[Dragonuv5]

לא עובד

זה מה שעשיתי

Dim OriginText As String Dim EditedText As String Text1.Text = OriginText Parts = Split(OriginText, "<font>") For i = 1 To UBound(Parts) EditedText = Left$(Parts(i), InStr(Parts(i), "</font>") - 1) Next Text2.Text = EditedText​

מה שיש ב- text1.text זה <font> a </font> <font> b </font> <font> c </font> *מחקתי את הכפילות הגדרתי משתנים ושיניתי את ה-J ל- I

 

[Dragonuv5]

*ועשיתי next

 

[מילו רמבלדי]

תראה דוגמא מה יש ב OriginText

 

[Dragonuv5]

כמו שרשמתי למעלה

Text1.Text = OriginText ורשמתי למעלה גם מה יש ב- טקסט1.טקסט

 

[מילו רמבלדי]

הכוונה - מה יש בתוכן של OriginText

ומה אתה רוצה שיופיע בסוף ב TextBox

 

[Dragonuv5]

הנה

זה מה שיש ב- origin text <font> a </font> <font> b </font> <font> c </font> ואני רוצה שהוא יעשה בסוף a b c

 

[מילו רמבלדי]

הנה

Parts = Split(Text1.Text, "<font>") For i = 1 To UBound(Parts) mText = mText & Left$(Parts(i), InStr(Parts(i), "</font>") - 1) & vbCrLf Next Text1.Text = mText |סלינק|​

 

[Dragonuv5]

עדיין לא עובד

זה מוחק את כל text1.text