Как записать каждый символ с новой строки

[APXOHT]

В текстбоксе имеется некий текст, надо в файл записать каждый символ в новую строку. Как это сделать?
Например "Помогите:)" , надо что б на выходе было
П
о
м
о
г
и
т
е
:
)

[FireFenix]

Добавлять символы переноса строки vbCrLf после каждого символа, т.е.

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

Dim Text as String

Text = "a" & vbCrLf & "b" & vbCrLf & "c"


[Хакер]

APXOHT, а в чём смысл такое делать?

[APXOHT]

Добавлять символы переноса строки vbCrLf после каждого символа, т.е.

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

Dim Text as String

Text = "a" & vbCrLf & "b" & vbCrLf & "c"


Но текст мне не известен, мне надо что б любой текст разбивался на последовательность символов и каждый символ записывался с новой строки.


Вообще это для того, что бы я смог его обработать. У меня результат выводится как последовательность символов, и мне нужно выделить
(и в последствии вывести отдельно) кусок текста, который находится после 2х конкретных символов. Длинна текста неизвестна, она все время разная,
символы, после которых мне надо сохранить текст находятся все время в разных местах и не идут подряд.

[Хакер]

А зачем между каждыми двумя символами вставлять ещё два символа?

Было:

ABC

Стало:

A
B
C

С точки зрения компьютера это выглядит так:

Было:
[65][66][67]
Стало:
[65][13][10][66][13][10][67]

В чём смысл, и как равномерное добавление мусора в обрабатываемые данные помогает обработке?

[APXOHT]

Просто так я знаю, как мне выцарапать нужный кусок текста.
Что б все прояснить:
Например ,мне из этого "IDE\DISKVOLUME01.0.00__\4&36887771&0&0.0.0" (PNPDeviceID)
Надо вывести лишь "36887771" .Как нормальным способом это сделать - я не знаю.
Поэтому я хотел разбить ID на символы, записать каждый на новую строчку текста и считывать построчно,
сравнивая значения и с использованием счетчика. Глупо, но ничего умнее я не придумал.

[Alec]

Э... А как ты собираешься считывать построчно, если у тебя есть проблемы с обработкой посимвольно? Хотя и это не решение задачи.

[APXOHT]

С помощью Line Input...
Просто я знаю как это делать построчно, а посимвольно у меня не получается...

[FireFenix]

Например ,мне из этого "IDE\DISKVOLUME01.0.00__\4&36887771&0&0.0.0" (PNPDeviceID)
Надо вывести лишь "36887771" .Как нормальным способом это сделать - я не знаю.

Использовать регулярку (regex), чтобы по шаблону вырезать нужный кусок

Или для данного примера можно
1) Используя функцию InStr, Ищем позицию первого амперсанда = Pos1
2) Используя функцию InStr, ищем позицию второго амперсанда = Pos2
3) Используя функцию Mid, выпиливаем кусок строки с позиции Pos1+1 до позиции Pos2

амперсанд = "&"

С помощью Line Input...
Просто я знаю как это делать построчно, а посимвольно у меня не получается...

В корне не верный подход

[APXOHT]

Благодарю за помощь.

[FaKk2]

И текстбокс конечно скрытый?