TextBox - не нужная вставка?

[АндрейБ]

Привет.
Вроде проект подходит к концу, и сейчас начанаю тестировать, мучаю базу как могу.
Вот сталкнулся с какой-то непонятной вставкой.
Я копирую поле (вручную) из Екселя (из любой ячейки - текстовое) и вставляю в TextBox. После этого должен идти посик, но при вставке на конце почему-то вставляется еще пару квадратов. Что это такое и как от этого избавиться. Просто такая процедура будет часто происходит. И постоянно убирать их возвратом корректки один раз еще можно вытерпеть, но 100 за день - это утомительно.
Я немного подумал, решил скопировать этот квардат, - он вроде похож на переход на новую строку или нажатие Ентер. Я не понял что это такое.
В Акцессе при такой же вставке - эти квардраты не появляются.
Помогите.

[SHURUP]

Попробуй Вот так:

Код: Выделить всё

Private Sub Text1_Change()
If Right(Text1.Text, 2) = vbCrLf Then
    Text1.Text = Left(Text1.Text, Len(Text1.Text) - 2)
    Text1.SelStart = Len(Text1.Text)
End If
End Sub


[Ruslan Demidow]

Посмотри коды этих символов через Asc.

Код: Выделить всё

Debug.Print Asc(mid$(CopyString,len(CopyString),1))
Debug.Print Asc(mid$(CopyString,len(CopyString)-1,1))


[АндрейБ]

SHURUP - спасибо.
Все заработало - а так для информации что это за "левая" вставка?

[Ramzes]

SHURUP - спасибо.
Все заработало - а так для информации что это за "левая" вставка?

Нефиг копипастить посты шурупа
vbCrLf