FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

Как удалить пустые места?
rusl Автор Сообщений: 200 Откуда: СПб Дата регистрации: 01.02.2005	rusl 05.03.05 09:17:03 Вот здесь почти в самом конце. http://www.rusl.ru/img/fox-screen5.gif Моя фраза: Цитата: Но что за первое пустое поле? Ответ Igor'a Korolyov'a: Цитата: Да, он "считает" туда те слова, которые после удаления спецсимволов (не букв) превратились в пустое место Т.е. проверяй после CHRTRAN переменную на EMPTY(). Написал такой код: FOR m.lnA=1 TO (lnCountOfWords) lcWord=LOWER(GETWORDNUM(lcFileStr, m.lnA)) lcWord=CHRTRAN(lcWord, CHRTRAN(lcWord, 'qwertyuiopasdfghjklzxcvbnm', ''), '') IF EMPTY(lcWord)=.F. APPEND BLANK REPLACE FileNameID WITH lnC REPLACE SubWord WITH lcWord ENDIF ENDFOR А Фокс все равно пустые значения не удаляет. Как еще можно от них избавится? ------------------

Как удалить пустые места?

rusl
Автор

Сообщений: 200
Откуда: СПб
Дата регистрации: 01.02.2005

rusl

05.03.05 09:17:03

Вот здесь почти в самом конце.

http://www.rusl.ru/img/fox-screen5.gif

Моя фраза:

Цитата:
Но что за первое пустое поле?

Ответ Igor'a Korolyov'a:

Цитата:
Да, он "считает" туда те слова, которые после удаления спецсимволов (не
букв) превратились в пустое место Т.е. проверяй после CHRTRAN переменную
на EMPTY().

Написал такой код:


FOR m.lnA=1 TO (lnCountOfWords) 
      lcWord=LOWER(GETWORDNUM(lcFileStr, m.lnA))
      lcWord=CHRTRAN(lcWord, CHRTRAN(lcWord, 'qwertyuiopasdfghjklzxcvbnm', ''), '')          
      IF EMPTY(lcWord)=.F.   
           APPEND BLANK 
                          REPLACE  FileNameID  WITH lnC                        
                          REPLACE SubWord  WITH lcWord  
                     ENDIF                                                           
ENDFOR

А Фокс все равно пустые значения не удаляет.

Как еще можно от них избавится?

------------------

Re: Как удалить пустые места?
AleksM Сообщений: 17881 Дата регистрации: 11.11.2003	AleksM 05.03.05 09:22:40 FOR m.lnA=1 TO (lnCountOfWords) lcWord=LOWER(GETWORDNUM(lcFileStr, m.lnA)) lcWord=ALLTRIM(CHRTRAN(lcWord, CHRTRAN(lcWord, 'qwertyuiopasdfghjklzxcvbnm', ''), '')) IF EMPTY(lcWord)=.F. APPEND BLANK REPLACE FileNameID WITH lnC REPLACE SubWord WITH lcWord ENDIF ENDFOR ------------------ Лучше переесть, чем недоспать. Не спеши, а то успеешь.

Re: Как удалить пустые места?

AleksM

Сообщений: 17881
Дата регистрации: 11.11.2003

AleksM

05.03.05 09:22:40


FOR m.lnA=1 TO (lnCountOfWords)   
        lcWord=LOWER(GETWORDNUM(lcFileStr, m.lnA))  
        lcWord=ALLTRIM(CHRTRAN(lcWord, CHRTRAN(lcWord, 'qwertyuiopasdfghjklzxcvbnm', ''), ''))            
        IF EMPTY(lcWord)=.F.     
             APPEND BLANK   
                            REPLACE  FileNameID  WITH lnC                          
                            REPLACE SubWord  WITH lcWord    
                       ENDIF                                                             
  ENDFOR

------------------
Лучше переесть, чем недоспать.
Не спеши, а то успеешь.

Re: Как удалить пустые места?
rusl Автор Сообщений: 200 Откуда: СПб Дата регистрации: 01.02.2005	rusl 05.03.05 09:29:08 Спасибо!

Re: Как удалить пустые места?
Igor Korolyov Сообщений: 34580 Дата регистрации: 28.05.2002	Igor Korolyov 05.03.05 16:19:27 Hi, AleksM! Ты считаешь что EMPTY() считает пробелы за непустые символы? Цитата: lc1 = SPACE(20) ? EMPTY(lc1) И кроме того после указанного CHRTRAN(..., CHRTRAN(..., "строкаБЕЗпробелов", ""), "") там в принципе не может быть пробелов. ------------------ WBR, Igor

Re: Как удалить пустые места?

Igor Korolyov

Сообщений: 34580
Дата регистрации: 28.05.2002

Igor Korolyov

05.03.05 16:19:27

Hi, AleksM!

Ты считаешь что EMPTY() считает пробелы за непустые символы?

Цитата:
lc1 = SPACE(20)
? EMPTY(lc1)

И кроме того после указанного CHRTRAN(..., CHRTRAN(..., "строкаБЕЗпробелов",
""), "") там в принципе не может быть пробелов.

------------------
WBR, Igor

:: Список Форумов•Список тем•Поиск•Войти

Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 4 (Гостей: 4)