ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Удалить все лишние пробелы из файла
4 сообщений из 4, страница 1 из 1
Удалить все лишние пробелы из файла
    #33741373
Олег1980
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег1980
Гость
Подскажите пожалуйста, можно ли в foxpro программным путем открыть текстовый файл и удалить все лишние пробелы?

Ситуация такая: есть база данных, с помощью foxpro формируется файл .txt, в который заносится информация из этой базы данных (более 1000 записей, в каждой записи по 15 полей). Проблема в том, что в процессе формирования текстового файла в конце каждой строки добавляются пробелы. Пробелов тем больше, чем короче сама строка. Эти пробелы увеличивают вес текстового файла в 3-4 раза.

Не подскажите, есть ли в среде foxpro возможность удалить все пробелы в конце каждой строки?

Заранее спасибо за помощь.
...
Рейтинг: 0 / 0
21.05.2006, 23:14
| Ответить | Цитировать | Написать  
Удалить все лишние пробелы из файла
    #33741427
Заботин А.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заботин А.
Участник
Попробуйте
Код: plaintext
STRTOFILE(STRTRAN(FILETOSTR('filename.txt'),' ',''), 'filename.txt')
Это удалит из файла все пробелы.

Если Вам требуется удалить пробелы только в конце строки, то вероятно это придется делать в цикле. Читать каждую строчку из файла и удалять пробелы функцией RTRIM:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
hndFile = FOPEN('filename.txt')
hndOut = FCREATE('filename2.txt')
DO WHILE !FEOF(hndFile)
  strString = FGETS(hndFile)
  =FPUTS(hndOut, RTRIM(strString)
ENDDO
=FCLOSE(hndFile)
=FCLOSE(hndOut)
...
Рейтинг: 0 / 0
22.05.2006, 00:55
| Ответить | Цитировать | Написать  
Удалить все лишние пробелы из файла
    #33741453
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Вообще-то, лучше удалять лишние пробелы на этапе формирования этого самого текстового файла. Поскольку разбор "потом" всегда связан с риском удалить что-то лишнее.

Если речь идет о версии не ниже VFP6 и общее количество строк не превышает 65 тысяч, то можно сделать так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
LOCAL laFile( 1 ), lnI, lcFile
lcFile = ""
FOR lnI =  1  TO ALINES(laFile, FileToStr("MyFile.txt"))
	IF Empty(m.lcFile) = .F.
		lcFile = m.lcFile + CHR( 13 ) + CHR( 10 )
	ENDIF
	lcFile = m.lcFile + RTRIM(laFile[m.lnI])
ENDFOR
=StrToFile(m.lcFile,"MyFile.txt")
...
Рейтинг: 0 / 0
22.05.2006, 02:30
| Ответить | Цитировать | Написать  
Удалить все лишние пробелы из файла
    #33743974
Олег1980
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Олег1980
Гость
Спасибо за быстрые ответы! Помогли!
...
Рейтинг: 0 / 0
23.05.2006, 00:23
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Удалить все лишние пробелы из файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33741373&tid=1591615]:
 0ms
get settings:
 9ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 39ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 71ms
get tp. blocked users:
 1ms
others: 230ms
total:  375ms
созд. / загр.: 375ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]