Подскажите, что за символ!!!

[cashman]

Его даже в форуме не получается напечатать.
Его можно набрать и посмотреть в NotePad (клавиши Ctrl+BackSpace)
Получается нечто вроде "вертикального прямоугольника".
Когда вставляешь текст из файла *.txt этот символ работает как Enter (т.е. перенос на следующую строку).

Подскажите можно ли его найти в импортиранном тексте с помощью команды: InStr(1, .. , ..)
или заменить на настоящий Enter.
Зарание благодарен.

[BV]

Можно.

[cashman]

Но я его не могу ввести как Ctrl+Backspace в код программы, как быть???

[BV]

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

Private Sub cmdButton_Click()
    '...
    txtText.Text = ReplaceStr(txtText.Text, Chr$(127), vbCrLf, vbBinaryCompare)
    '...
End Sub

[cashman]

Видимо это другой символ, т.к. Chr$(127) не работает
Также не получилось отловить Chr(10) - перенос строки (который кстати сохраняется в txt файл также (как вертикальный прямоугольник)).
Специально прикладываю файл, в котором этот символ стоит между слов "Привет" и "Пока".
А текст из файла загружает как:

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

Привет
Пока

[BV]

Поправь путь к файлу, если потребуется....

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

Option Explicit

Private Const GCC_FILENAME As String = "111.txt"

Private Sub cmdGetChrCode_Click()
    Static i As Long, hFile As Long
    Static strData As String, strTempChar As String
    hFile = FreeFile
    Open App.Path & Chr$(92) & GCC_FILENAME For Input Access Read As #hFile
        strData = Input(LOF(hFile), hFile)
    Close #hFile
    For i = 1 To Len(strData)
        strTempChar = Mid$(strData, i, 1)
        Debug.Print "Символ:" & Chr$(32) & strTempChar & vbTab & _
            "Код:" & Chr$(32) & Asc(strTempChar)
    Next i
End Sub

[Odrick]

Блин... Не в обиду, но иногда задевает. А в блокноте ввести один этот сивол, записать текст и открыть его в ЛЮБОМ HEX-эдиторе сложно? Тогда ты увидиш, что код его 7F, или 127, как и сказал BV. До чего Билли народ довел... А поиск и замена с любым символом работает на "ура".

[cashman]

Этот символ вводил не Я, а программа...
Клавишами я его повторить не мог.
to BV спасибо, твой код помог
Символ оказался Chr$(13), а не 127 (как уже настаивают некоторые).

[Odrick]

Ндя... Справка:

13 - код переноса строки
10 - код перевода каретки
127 - код символа, который генерится блокнотом при нажатии Ctrl+BackSpace

А то, что ты видишь на экране не имеет ровным счетом никакого значения. Это зависит только от того, как интерпритируются эти коды. Да, некоторые редакторы воспринимают конец строки как последовательность 13 10. Некоторым достаточно 13 или 10. Некоторые, когда встречают 13 без 10 (или наоборот) показывают его в виде специального символа. Повторюсь - если хочеш увидеть реальную картину того, что творится в файле, пользуй HEX-просмотрщики. Потому как интерпритация набора байтов зависит только от интерпритатора.

[ALX_2002]

Miscellaneous Constants


The followingconstants are defined in the Visual Basic for Applicationstype library and can be used anywhere in your code in place of the actual values:

Constant Equivalent Description
vbCrLf Chr(13) + Chr(10) Carriage return–linefeed combination
vbCr Chr(13) Carriage return character
vbLf Chr(10) Linefeed character
vbNewLine Chr(13) + Chr(10) Platform-specific new line character; whichever is appropriate for current platform
vbNullChar Chr(0) Character having value 0
vbNullString String having value 0 Not the same as a zero-length string (""); used for calling external procedures
vbObjectError -2147221504 User-defined error numbers should be greater than this value. For example:
Err.Raise Number = vbObjectError + 1000
vbTab Chr(9) Tab character
vbBack Chr(8 ) Backspace character
vbFormFeed Chr(12) Not useful in Microsoft Windows
vbVerticalTab Chr(11) Not useful in Microsoft Windows

А я тут MSDN "листал" - тут всё подробно пишут.

[cashman]

Благодарю, моя проблема решена.

[Sirik]

а не проще было использовать VB константу vbCrLf ?

[cashman]

мне как раз и нужно было этот символ совпадающий по функции с vbCrLf превратить в vbCrLf, но я не знал как его задетектить. Вот.
Теперь разобрался)).