При выводе исчезают пробелы

@CronMix · Регистрация: 23.11.2010

Студворк — интернет-сервис помощи студентам

Уменя такая трабла, читаю txt файл (внем очень много строк > 2000)
содержимое файла (первые 5 строк):
74
78 22
28 10 16
17 35 10 61
78 86 48 18 49
................. (и так далее)
Тоесть в каждой строке есть некоторое число после него пробел.
на каждой следущей строке чисел и пробелов на 1 больше чем в предыдущей строке. Полуается некий числовой треугольник.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim Linec As String
counter = 0
i = 0
Open 'c:q.txt' For Input As #1
Do While Not EOF(1)
counter = counter + 1
Line Input #1, Linec 'читаю строку
StrN(i) = Linec      'запихиваю строку в массив.
i = i + 1
Loop
Close #1

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

П.С.2. Как лучше отображат файл на форме? в каком поле или контроле.

Желательно на все привести примеры в виде кода.

12.01.2011, 11:57

даю 70% того что там у тебя не пробелы(код 32) а что то другое например код (01) поэтому такие и проблемы

@CronMix · 13.01.2011, 04:12 **[ТС]**

Ну хорошо, а как мне узнать что там за символ ?
И всетаки как прочитать файл ? по строчно...

13.01.2011, 10:11

как,как... взять и открыть в Far-е потом нажать F4 и смотреть коды, не забывая об шестнацатиричных и десятичных системах исчесления, а потом можно и с помощью проги предусмотерть любой разделитель:

Visual Basic
1
2
3
4
5
nFindPos=0
Do
   nFindPos=InStr(sInput,chr$(01))
   if nFindPos>0 then mid(sInput,nFindPos)=' '
loop Until nFindPos>0

где 01 - код разделителя заменится на прробел
sInput - строка считаная и файла
можно даже сделать в модуле функцию, потом чпсто придется ее пользоваться.
удачи

@Alexey Spirin · 13.01.2011, 14:23

О том как полностью файл прочитать..
Используй FileSystemObject (FSO).
Подключи к проекту библиотеку Microsoft Scripting Runtime и вот так вот...
Dim FSO As New FileSystemObject
Dim TS As TextStream
Dim a As String

Set TS = FSO.OpenTextFile('C:1.txt', ForReading)
a = TS.ReadAll

@Alexey Spirin · 13.01.2011, 14:25

2Widowmaker: а функцию Replace отменили?
A=replace(a, chr(1), chr(32))

13.01.2011, 15:09

мне так нравится :-)

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Widowmaker
	12.01.2011, 11:57
	даю 70% того что там у тебя не пробелы(код 32) а что то другое например код (01) поэтому такие и проблемы

@CronMix 0 / 0 / 0 Регистрация: 23.11.2010 Сообщений: 71
	13.01.2011, 04:12 [ТС]
	Ну хорошо, а как мне узнать что там за символ ? И всетаки как прочитать файл ? по строчно... 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	13.01.2011, 14:23
	О том как полностью файл прочитать.. Используй FileSystemObject (FSO). Подключи к проекту библиотеку Microsoft Scripting Runtime и вот так вот... Dim FSO As New FileSystemObject Dim TS As TextStream Dim a As String Set TS = FSO.OpenTextFile('C:1.txt', ForReading) a = TS.ReadAll 0

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	13.01.2011, 14:25
	2Widowmaker: а функцию Replace отменили? A=replace(a, chr(1), chr(32)) 0

Widowmaker
	13.01.2011, 15:09
	мне так нравится :-)