*****************************************
** PROGRAM: space_remover.prg
**
** INFORMACJA: program usuwa nadmiarowe spacje we wskazanej kolumnie określonej tabeli
** License: open source :)
** Gdyby ktoś w jakiś sposób go usprawnił - byłbym wdzięczny za informacje
** Have a nice day! :)))
*****************************************
 
mess_plik = 'Wybrano plik: '
mess_plik_kom = 'Wybrana tabela posiada następujące kolumny:'
mess_title = 'Przeprowadzić aktualizację?'
mess_text = 'UWAGA! Masz ostatnią szansę, by zrezygnować z NIEODWRACALNYCH SKUTKÓW działania tego programu! Czy NAPRAWDĘ CHCESZ USUNĄĆ WSZYSTKIE nadmiarowe spacje we wskazanej tabeli?'
mess_dialog = 4+32+256
mess_thx = 'Dziękujemy za współpracę!'
mess_accept = 'Podaj nazwę kolumny, z której mają zostać usunięte nadmiarowe spacje: '
mess_operacja_ok = 'Operacja zakończona powodzeniem!'
mess_ok = 'OK'
mess_wait = 'Proszę czekać... Twoje polecenie jest właśnie w trakcie wykonywania...'

CLEAR
SET LIBRARY TO 'C:\Program Files\Microsoft Visual Studio\Vfp98\Foxtools'
gcdir=SYS(5)+CURDIR()
SET DEFAULT TO (gcdir)
CREATE CURSOR kolumny (name_cols C(10))
WAIT ('Wybierz plik, w którym należy usunąć nadmiarowe spacje') WINDOW AT 9,65 NOWAIT
plik1=GETFILE('DBF')
USE (plik1) ALIAS plik IN 0
? (mess_plik) + (plik1)
? "------------"
SELECT plik
ile_wierszy = AFIELDS(tablica)
? (mess_plik_kom)
? "------------"
FOR start = 1 TO ile_wierszy
    ? tablica(start,1) + ' -typ ' + tablica(start,2)
    INSERT INTO kolumny(name_cols) VALUES (tablica(start,1))
ENDFOR
? "------------"
odpowiedz = MESSAGEBOX(mess_text,mess_dialog,mess_title)
DO CASE
    CASE odpowiedz = 6
	ACCEPT (mess_accept) TO name_kol
	? "Wybrano kolumnę: " + name_kol
	WAIT WINDOW (mess_wait) NOWAIT
	kolum='plik.' + name_kol
	SCAN
	    nnn = ALLTRIM(&kolum)
	    IF VARTYPE(nnn)<>'U'
		mmm = ALLTRIM(REDUCE(nnn))
		REPLACE &kolum WITH mmm
	    ENDIF
	ENDSCAN
	MESSAGEBOX(mess_operacja_ok,48,mess_ok)
	MESSAGEBOX(mess_thx,48,mess_ok)
	CLOSE DATA ALL
	QUIT
    CASE odpowiedz = 7
	CLEAR
	MESSAGEBOX(mess_thx,48,mess_ok)
	CLOSE DATA ALL
	QUIT
ENDCASE