forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)
-   -   Trim$() Не работает с русским текстом (http://forum.boolean.name/showthread.php?t=20183)

Harts 04.02.2016 13:34

Trim$() Не работает с русским текстом
 
Я писал об это в теме: lower$ и Trim$ не работают с русскими словами.
Функцию для lower$ я смог написать, а функцию для Trim$ ни как не получается.
Помогите написать функцию для Trim$, чтобы он понимал русские символы.

RBK 04.02.2016 18:55

Ответ: Trim$() Не работает с русским текстом
 
Сначала ищем пробелы в начале строки, потом в конце.
Код:

Function myTrim$(s$)

 t0=Len(s$)

 If t0=0 Then Return s$

 Local t1 = 1

 While Mid(s$,t1,1)=" "

  t1=t1+1

 If t1>t0 Then Return ""

 Wend

 Local t2 = t0

 While Mid(s$, t2, 1)=" "

  t2=t2-1

 Wend

 Return Mid(s$,t1,t2+1-t1)

End Function


Harts 04.02.2016 19:29

Ответ: Trim$() Не работает с русским текстом
 
Спасибо огромное.


Часовой пояс GMT +4, время: 23:01.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot