Please provide some code for my problem..Thanks

Question

Hi friends,
How to pick words starting with some sort from a word document and write the data to a text file..for example
we have many words in document starting with PGOT..
Now i have to pickup words starting with PGOTXXXX and write to a text file..
How to achieve this with pl/sql..
pls provide sample code...
Thanks in advance
asp

Answer 1

A small change in the code will work. It goes like this..
CREATE OR REPLACE PROCEDURE rw_demo IS
InFile utl_file.file_type;
OutFile utl_file.file_type;
vNewLine VARCHAR2(4000);
StartPos number;
EndPos number;
searchword varchar2(100);
BEGIN
InFile := utl_file.fopen('CTEMP', 'in.txt','r');
OutFile := utl_file.fopen('CTEMP', 'out.txt', 'w');
IF utl_file.is_open(InFile) THEN
LOOP
BEGIN
utl_file.get_line(InFile, vNewLine);
StartPos := 1;
loop
StartPos := INSTR(vNewLine,'PGOT',StartPos);
exit when StartPos = 0;
EndPos := INSTR(vNewLine,' ',StartPos);
If EndPos = 0 then
SearchWord := substr(vNewLine,StartPos);
ELSE
SearchWord := substr(vNewLine,StartPos,EndPos-StartPos);
END IF;
end loop;
utl_file.put_line(OutFile, searchword);
utl_file.fflush(OutFile);
END;
END LOOP;
COMMIT;
END IF;
utl_file.fclose(InFile);
utl_file.fclose(OutFile);
END rw_demo;
If you see my solution, i have a variable EndPos will contain the position of ' ' (a space) starting from the position of the string 'PGOT'. E.g. the line is "PGOTRFG ABC". Now as per the procedure StartPos will be 1 and EndPos will be 8. So the substr() will fetch PGOTRFG. Incase if the line is "PGOTRFG" then StartPos will be 1 and EndPos will be 0 and so the substr (in if part) will fetch PGOTRFG. you got it?