سورس کد تعداد اینترهای زده شده در تکست باکس؟
مثلا :
یک تکست باکس، حاوی n خط نوشته میباشد،
چگونه هرکدام از new line ها (chr(13)) را تشخیص دهم و در آن مکان، متنی را اضافه کنم؟
S = مكان اولين Enter رو نمايش مي ده.
کد:
S = InStr(1, Text1, vbNewLine)
Num = تعداد اينترهاي زده شده رو نمايش مي ده
کد:
S = 0
While InStr(S + 1, Text1, vbNewLine) > 0
Num = Num + 1
S = InStr(S + 1, Text1, vbNewLine)
Wend
MsgBox Num
با اين كد مي تونيد تمام اينترها را يافته و به جاي اون متن مورد نظر خودتون رو قرار بديد
کد:
Text1 = Replace(Text1, vbNewLine, "[Enter]" & vbNewLine)
فرض کنید، یک تکست باکس، حاوی n خط نوشته میباشد؛
چگونه اولین کاراکتر را (در اولین خط و پس از آن) در ابتدای هر خط جدید، تشخیص داده و به خروجی ببرم؟