..удалить строку..

[skulida]

что-то никак не соображу...
надо в текстовом блоке удалить все строки, начинающиеся с
"&NEW!" до конца строки.
вот такое вообще имеет право на жизнь (хотя не работает не удаляет
всю строку):

tempStringEnd = Split(SInput, "&NEW!")
N = UBound(tempStringEnd)
For I = 1 To N
nfinds = InStr(1, SInput, "&NEW!")
If nfinds > 0 Then
nfindsend = InStr(nfinds, SInput, vbCrLf)
Mid(SInput, nfinds, (nfindsend - nfinds)) = vbCrLf
End If
Next I

укажите пожалуйста на ошибку или подскажите как это лучше сделать??

[GSerg]

dim v as variant, i as long

v=split(sinput, vbnewline)
for i=lbound(v) to ubound(v)
if left(v(i),5)="&NEW!" then v(I)=vbnullstring
next
sinput=join(v,vbnullstring)

[skulida]

Спасибо...
но, указанный пример обрезает только названное начало строки,
т.е. ) &NEW!, а нужно удалить еще и то что плсе идет до перехода на другую строку..
т.е.
&NEW! текст который нужно удалить вместе с ....
&KOD!12345678
&END!
должно остаться
&KOD!12345678
&END!
..

[GSerg]

Ошибка есть, но не та, что ты сказал.
Ты вообще код запускал?

[skulida]

запускал ..только немного изменив..
твой пример обрезал все переходы на новую строку но
не убрал нужную..

[skulida]

вообще то нет
я нанакосячил...
...
хотя нет строку убирает, но и все переходы на другую строку тоже..

[GSerg]

if left(v(i),5)="&NEW!" then v(I)=vbnewline else v(i)=v(i) & vbnewline

[skulida]

да, спасибо!!
ошибку уже понял..
в моем варианте

v = Split(sinput, vbNewLine)
For i = LBound(v) To UBound(v)
If Left(v(i), 5) = "&new!" Then v(ii) = vbNull String Else v(i) = v(i) & vbNewLine
Next
sinput = Join(v, vbNullString)

потому что если
then v(I)=vbnewline else v(i)=v(i) & vbnewline

то на месте убираемой строки - пустая строка

СПасибо!!