TextBox NewLine

[Mel]

Подскажите, как определить начало нововй строки в textbox'е, или ее конец...
Мне нужно сверстать такую прогу, которая трансформировала введенный в один textbox текст во второй таким образом, чтобы сначала строки добавляла определенный символ, и в конце каждой строки...

Например:

hi to my friends
bye to my friends

В

print "hi to my friends";
print "bye to my friends";

Благодарен за внимание к проблеме.

[RayShade]

Ну так наверное



text1.text = replace(text2.text,vbcrlf,";"&vbcrlf,,,vbtextcompare)

[Mel]

Так наверно такого replace... нету.... Вот
А лучше бы было..

[RayShade]

Что значит "нет replace" это стандартная функция.

[Mel]

Я скопировал строку, вставил, а VB при дебуге говорит что ошибка, и выделяет слово replace... незнаю.. может простенький исходник дашь?

(может дело в том что я VB5 юзаю )

[RayShade]

Ясное дело, в этом причина.

Может, 6-й поставишь?



Если влом, то вот тебе код replace:



function replace (byval lwhat as string, lfind as string, lreplace as string)

dim i as long

i = instr(1,lwhat,lfind)

do until i =0

mid(lwhat,i,len(lfind))=lreplace

i=instr(i,lwhat,lfind)

loop

replace = lwhat

end function