powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пробелы в txt файле
40 сообщений из 40, показаны все 2 страниц
Пробелы в txt файле
    #33370290
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня вопрос, как програмно сделать, так чтобы файл вида:


20051101 16341 19520 35.47 Љ®ў «Ґ­Є® ѓ.€. 20051101 528 19521 56.23 Љ«Ё¬Ґ­Є® ‚.‚. 20051101 1826 19527 324.94 ѓаҐз ­л© ‚.€. 20051101 65 19529 46.06 Љ Ў ­­ЁЄ Ђ.‚. 20051101 16341 19533 52.33 Њ вўЁҐ­Є® ‚.€. 20051101 16341 19538 25.95 ћа祭Є® Ђ.Џ. 20051101 16346 19541 20.82 ѓЁ«м Ђ.Ђ. 20051101 16341 19544 38.61 ‘⥯ ­Ґ­Є® Ђ.Ѓ. 20051101 20 19545 472.98 ‚®§аг¤ Њ.Ђ. 20051101 16341 19547 8.86 ѓг¤§Ґ­Є® ћ.Ђ. 20051101 65 19552 28.04 •®¬пЄ®ў Ђ.Џ. 20051101 16341 19553 30.42 ђ Ї®в  ‚.Џ. 20051101 242 19556 143.16 Љ ©Є  Ќ.‘. 20051101 16341 19557 102.74 Ѓ®­¤ аҐ­Є® Ќ.€. 20051101 168 19558 82.06 …ЈЁЇЄ® €.Џ. 20051101 16341 19560 32.04 Љ®ў «Ґ­Є® ѓ.€. 20051101 16341 19564 11.53 Њ «ЁзҐ­Є® ‚.Њ. 20051101 16339 19567 8.39 …ମ誨­ Џ.‚. 20051101 64 19568 36.31 Њ ЄбЁ¬Ґ­Є® Ђ.€. 20051101 151 19570 170.49 Љ «г¦Ґ­®ў ‚.‚. 20051101 16341 19572 36.24 ‡оЎ ­ ‚.Ђ. 20051101 16341 19574 25.74 —Ґа­ге  ћ.Ђ. 20051101 16341 19577 5.66 Њ вўЁҐ­Є® ‚.€. 20051101 210 19578 86.76 ЊЁ­оЄ €.Ђ. 20051101 15939 19581 88.86 ћа祭Є® ‚.Ќ. 20051101 16341 19582 4.81 ‚ҐаҐвҐ«м­ЁЄ ѓ.Ќ. 20051101 16046 19583 35.38 Џ®¤«Ґб­л© ‚.‚. 20051101 528 19584 137.50 Љ«Ё¬Ґ­Є® ‚.‚. 20051101 73 19585 197.07 „ҐаҐўп­зҐ­Є® Њ.€. 20051101 153 19591 66.43 ЏЁа®Ј Ќ.€. 20051101 243 19593 1378.16 ‘®Єга ”.Џ. 20051101 16341 19596 39.62 Љ®ў «Ґ­Є® ѓ.€. 20051101 178 19602 39.49 ЃҐ¬  ‚.€. 20051101 16341 19605 66.27 ‘⥯ ­Ґ­Є® Ђ.Ѓ. 20051101 16341 19609 63.12 ћа祭Є® Ђ.Џ. 20051101 241 19610 105.88 ‘⥫쬠订 ‹.Џ. 20051101 16341 19611 27.34 —Ґа­ге  ћ.Ђ. 20051101 64 19614 22.43 •®¬пЄ®ў Ђ.Џ. 20051101 16341 19615 152.19 Ѓ®­¤ аҐ­Є® Ќ.€. 20051101 16346 19616 35.10 ѓ®«гЎ®ў ‚.€. 20051101 16341 19618 44.32 Њ «ЁзҐ­Є® ‚.Њ. 20051101 168 19619 88.95 …ЈЁЇЄ® €.Џ. 20051101 542 19620 14.91 ‡ ¤®а®¦­®¬г Ђ.Ђ. 20051101 29 19622 234.56 Љ®б⥭­ЁЄ®ў Њ.”. 20051101 16341 19625 81.17 ѓг¤§Ґ­Є® ћ.Ђ. 20051101 16346 19627 11.52 „Ґ­ЁбҐ­Є® ‘.Ѓ. 20051101 16341 19629 8.65 ђ Ї®в  ‚.Џ. 20051101 16341 19637 4.70 Љ®ў «Ґ­Є® ѓ.€. 20051101 152 19641 126.08 ЌҐЇ®з в®ў ‚.Ђ. 20051101 16341 19643 14.31 ‡оЎ ­ ‚.Ђ. 20051101 16346 19644 6.22 ѓЁ«м Ђ.Ђ. 20051101 45 19647 28.11 ‘ЎЁв­Ґў ђ.Ђ. 20051101 64 19647 79.83 Њ ЄбЁ¬Ґ­Є® Ђ.€. 20051101 65 19660 74.49 •®¬пЄ®ў Ђ.Џ. 20051101 16341 19661 10.36 Њ «ЁзҐ­Є® ‚.Њ.


Получить такой файл:


20051101 16341 19520 35.47 Коваленко Г.И. 20051101 528 19521 56.23 Клименко В.В. 20051101 1826 19527 324.94 Гречаный В.И. 20051101 65 19529 46.06 Кабанник А.В. 20051101 16341 19533 52.33 Матвиенко В.И. 20051101 16341 19538 25.95 Юрченко А.П. 20051101 16346 19541 20.82 Гиль А.А. 20051101 16341 19544 38.61 Степаненко А.Б. 20051101 20 19545 472.98 Возруд М.А. 20051101 16341 19547 8.86 Гудзенко Ю.А. 20051101 65 19552 28.04 Хомяков А.П. 20051101 16341 19553 30.42 Рапота В.П. 20051101 242 19556 143.16 Кайка Н.С. 20051101 16341 19557 102.74 Бондаренко Н.И. 20051101 168 19558 82.06 Египко И.П. 20051101 16341 19560 32.04 Коваленко Г.И. 20051101 16341 19564 11.53 Маличенко В.М. 20051101 16339 19567 8.39 Ермошкин П.В. 20051101 64 19568 36.31 Максименко А.И. 20051101 151 19570 170.49 Калуженов В.В. 20051101 16341 19572 36.24 Зюбан В.А. 20051101 16341 19574 25.74 Чернуха Ю.А. 20051101 16341 19577 5.66 Матвиенко В.И. 20051101 210 19578 86.76 Минюк И.А. 20051101 15939 19581 88.86 Юрченко В.Н. 20051101 16341 19582 4.81 Веретельник Г.Н. 20051101 16046 19583 35.38 Подлесный В.В. 20051101 528 19584 137.50 Клименко В.В. 20051101 73 19585 197.07 Деревянченко М.И. 20051101 153 19591 66.43 Пирог Н.И. 20051101 243 19593 1378.16 Сокур Ф.П. 20051101 16341 19596 39.62 Коваленко Г.И. 20051101 178 19602 39.49 Бема В.И. 20051101 16341 19605 66.27 Степаненко А.Б. 20051101 16341 19609 63.12 Юрченко А.П. 20051101 241 19610 105.88 Стельмашов Л.П. 20051101 16341 19611 27.34 Чернуха Ю.А. 20051101 64 19614 22.43 Хомяков А.П. 20051101 16341 19615 152.19 Бондаренко Н.И. 20051101 16346 19616 35.10 Голубов В.И. 20051101 16341 19618 44.32 Маличенко В.М. 20051101 168 19619 88.95 Египко И.П. 20051101 542 19620 14.91 Задорожному А.А. 20051101 29 19622 234.56 Костенников М.Ф. 20051101 16341 19625 81.17 Гудзенко Ю.А. 20051101 16346 19627 11.52 Денисенко С.Б. 20051101 16341 19629 8.65 Рапота В.П. 20051101 16341 19637 4.70 Коваленко Г.И. 20051101 152 19641 126.08 Непочатов В.А. 20051101 16341 19643 14.31 Зюбан В.А. 20051101 16346 19644 6.22 Гиль А.А. 20051101 45 19647 28.11 Сбитнев Р.А. 20051101 64 19647 79.83 Максименко А.И. 20051101 65 19660 74.49 Хомяков А.П. 20051101 16341 19661 10.36 Маличенко В.М.

Буду благодарна за кусочек кода, так как столкнулась с таким впервые и даже helpa нет и книжки тоже нет. Заранее всем огромное спасибо.
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370312
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
mystr=cpconvert(866,1251,FILETOSTR(cFileName))
STRTOFILE(mystr, cFileName )
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370313
Трезвый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
так это пробелы или перекодировка? cpconvert() поможет решить проблему перекодировки... открываем файл, читаем посимвольно (построчно), если буква (не цифра, не пробел) - перекодировка, пишем в другой файл
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370319
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как убрать из него лишние пробелы?
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370321
попробуй
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
a=filetostr('путь_к_файлу')
b=strtofile(CPCONVERT(866,1251,a),''путь_к_файлу'')
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370323
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
cc = FILETOSTR('c:\866.txt')
cc = CPCONVERT( 866 ,  1251 , cc)
STRTOFILE(cc,'c:\1251.txt')
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370377
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2PaulWist

Вы Бельмондо не любите

как он там сказал не припомню?

"Мартен я всегда буду у тебя за спиной ...." (С)
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370385
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
leaf 2PaulWist

Вы Бельмондо не любите

как он там сказал не припомню?

"Мартен я всегда буду у тебя за спиной ...." (С)



Не понял - это намек на то , что мой пост пришел позже или подозрение на то, что я пытаюсь отвечать именно на те посты где Вы участвуете?
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370391
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да ну что вы я тут редко бываю
просто в этот раз я резче жал на клавиши
вопрос то детский
просто тренировка пальцев мне повезло больше
вот и все
расслабтесь с днем милиции Вас
я же на половину флудер
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370520
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
leafда ну что вы я тут редко бываю
просто в этот раз я резче жал на клавиши
вопрос то детский
просто тренировка пальцев мне повезло больше
вот и все
расслабтесь с днем милиции Вас
я же на половину флудер

Не могли бы Вы ответить на еще один абсолютно детский вопрос, можно ли как - то одной функцией заменить все буквы N на буквы S.
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370539
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
STRTRAN( )
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370541
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
chrtran("NNNN","N","S")
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370548
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
PaulWistSTRTRAN( )
Паш, я у тя за спиной.
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370704
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как узнать код символа вот такого: ||
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370726
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
air1А как узнать код символа вот такого: ||

По всей видимости - это enter
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370749
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CHR()/ASC()
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370752
karly™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
1. Код символа можно узнать с помощью ? ASC("||")
2. Это может оказаться не один символ, а два. Проверить можно так ? Len("||")
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370803
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А у entera какой код - 13 или нет
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370809
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не могли бы Вы ответить на еще один абсолютно детский вопрос

извените если обидел
но по любому от детских до не детских
от года до пяти лет, но я думаю на этом форуме Вы быстро так что задавайте
года через два будете лучше меня
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370818
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как мне из текстового файла убрать enterы, а лучше заменить их на пробелы
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370835
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
F1 и поиск

INKEY( ) Function

там Вам все будет
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370851
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если бы у меня был help, то есть F1, я бы таких вопросов не задавала, а задание есть, а helpа нет
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370852
Петров Андрей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>>А как узнать код символа вот такого: ||
>>По всей видимости - это enter

Аффтар жжот! Пышы исчё.

ЗЫ Настроение на весь день хорошее...

ЗЗЫ Код ентера можно посмотреть в виде буковок в HEX виде. Например 0D а потом написать на VFP вот так Chr(0x0D)
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370862
Петров Андрей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>> Если бы у меня был help, то есть F1 , я бы таких вопросов не задавала, а задание есть, а helpа нет

Кнопку украли... Буагага :-))))))))))))))))))
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370888
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
air1А как мне из текстового файла убрать enterы, а лучше заменить их на пробелы
chrtran() - заменяет в строке один символ на другой
strtran() - заменяет в строке одну подстроку на другую
asc() - полусить код символа
chr() - получить символ по его коду
cht(13) - enter
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370903
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2Петров Андрей

типа хелп есть а кнопки нет
я посмотрел темы автора он уже месяц похожие вопросы задает ....
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370919
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
leaf 2Петров Андрей

типа хелп есть а кнопки нет
я посмотрел темы автора он уже месяц похожие вопросы задает ....
Ну что вы ржете :)
Ну нет у девчёнки хелпа.
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370933
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Рада, что я Вас насмешила, но делать надо. Высылаю файл который мне надо преобразовать в таблицу и код. Если Вы не подскажите, ну что ж, а если подскажите, то заранее благодарна.
Код программы:

NameFile=getfile()
set step on
m.str=FILETOSTR(NameFile)
m.str = CPCONVERT(866, 1251, m.str)
m.str=onespace(m.str)
StrTran(m.str,Chr(0x0D),' ')
CREATE TABLE q_data (dt d, n1 i, n2 i, d1 n(10,2), c1 c(20))
DO while !EMPTY(m.str)
m.x=AT(' 200',m.str)
IF m.x>0
addstring(SUBSTR(m.str,1,m.x))
m.str=SUBSTR(m.str,m.x+1)
ELSE
addstring(m.str)
m.str=''
ENDIF
ENDDO

PROCEDURE addstring
LPARAMETERS str
LOCAL dt,y,n1,n2,d1,c1
m.dt=DATE(VAL(SUBSTR(m.str,1,4)),VAL(SUBSTR(m.str,5,2)),VAL(SUBSTR(m.str,7,2)))
m.str=SUBSTR(m.str,10)
m.y=AT(' ',m.str)
m.n1=VAL(SUBSTR(m.str,1,m.y))
m.str=SUBSTR(m.str,m.y+1)
m.y=AT(' ',m.str)
m.n2=VAL(SUBSTR(m.str,1,m.y))
m.str=SUBSTR(m.str,m.y+1)
m.y=AT(' ',m.str)
m.d1=VAL(SUBSTR(m.str,1,m.y))
m.str=SUBSTR(m.str,m.y+1)
m.c1=m.str
INSERT INTO q_data FROM MEMVAR
RETURN

Function onespace
lparameters cStr
local i, lFlag, cRes, cChar
cRes = ""
lFlag = .t.
for i=1 to len(cStr)
cChar = substr(cStr,i,1)
if !cChar==' ' or !lFlag
cRes = cRes + cChar
endif
lFlag = cChar==' '
endfor
return rtrim(cRes)
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370936
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да козлы пы конечно....
у меня у самого на 6 хелпа не было

foxhelp.ru
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370939
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
блин
ну Вы свою вторую тему смотрели
и там мой пост с примерным решением ???????
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370943
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да я уже месяц задаю вопросы, но к сожалению пробую все, но ничего не подходит, то ли я задаю некорректные вопросы, то ли..
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370950
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У меня кстати фокс тоже 6
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370958
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну так чего?
за хелпом по ссылке
за решением в свою тему
чего еще???
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370961
Петров Андрей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Короче давайте несколько файлов (Именно файлов!!!) которые вам шлют.

Мыло вот jellfush@mail.ru

И еще как ваша контора называется?
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33370964
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Инна, прикрепи лучше файл с данными и напиши, что ты должна получить на выходе.
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33371008
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ладно дома книгу возьму почитаю, а то получается, что не я, а Вы за меня задачу решите, а я так не люблю. Всем спасибо.
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33371205
Петров Андрей
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Кстати я мыло не так написал. Вот правильное

jellfish@mail.ru
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33372400
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi air1!

Есть сайтик такой - MSDN называется, и как ни странно там доступен хелп по
фоксу. Конечно уже далеко не 6-му, но это лучше чем ничего. А вообще если у
вас лицензионная 6-я студия, то должен быть и хелп - там как раз на 2-х
дисках шёл MSDN... Если же не лицензионная и этот вопрос не волнует - стоит
пройтись до ближайшей лавки где торгуют палёными дисками и купить себе VFP8
или лучше сразу VFP9 - так хелп должен быть - если не совсем уж злые пираты
всё испохабили.

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33373576
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем кто мне помог огромное спасибо. У меня почти все получилось, стоило только взять книгу по Фоксу. Единственное что на данном этапе меня волнует, так это то, что функция: m.str = CPCONVERT (866, 1251, m1.str) что - то не работает, сейчас буду разбираться. Если кто - то заметил ошибку и напишет мне, буду только благодарна
...
Рейтинг: 0 / 0
Пробелы в txt файле
    #33375069
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо всем еще раз, у меня все получилось, наверно буду писать почаще, а то если меня не будет, кто вам будет поднимать настроение
...
Рейтинг: 0 / 0
40 сообщений из 40, показаны все 2 страниц
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Пробелы в txt файле
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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