 f o r m   d i a l o g u e 
 
 	 s e n t e n c e   o p e n p a t h   C : \ U s e r s \ d e l l \ D e s k t o p \ 2 0 2 0^t 4g 7eN
gPe\eg,Q[mRR0 T e x t G r i dN- \hl 1 
 
 e n d f o r m 
 
 
 
 i f   r i g h t $ ( o p e n p a t h $ , 1 ) < > " \ " 
 
 	 o p e n p a t h $ = o p e n p a t h $ + " \ " 
 
 e n d i f 
 
 
 
 C r e a t e   S t r i n g s   a s   f i l e   l i s t . . .   f i l e L i s t   ' o p e n p a t h $ ' * . T e x t G r i d 
 
 n u m b e r O f f i l e s   =   G e t   n u m b e r   o f   s t r i n g s 
 
 f o r   i f i l e   f r o m   1   t o   n u m b e r O f f i l e s 
 
 	 s e l e c t   S t r i n g s   f i l e L i s t 
 
 	 f i l e N a m e $   =   G e t   s t r i n g . . .   ' i f i l e ' 
 
 	 R e a d   f r o m   f i l e . . .   ' o p e n p a t h $ ' ' f i l e N a m e $ ' 
 
 
 
 	 s i m p l e N a m e $   =   f i l e N a m e $   -   " . T e x t G r i d " 
 
 
 
 	 s e l e c t   T e x t G r i d   ' s i m p l e N a m e $ ' 
 
 	 S e t   i n t e r v a l   t e x t . . .   1   2   ' s i m p l e N a m e $ ' 
 
 	 W r i t e   t o   t e x t   f i l e . . .   ' o p e n p a t h $ ' ' f i l e N a m e $ ' 
 
 
 
 	 s e l e c t   T e x t G r i d   ' s i m p l e N a m e $ ' 
 
 	 R e m o v e 
 
 
 
 e n d f o r 
 
 
 
 s e l e c t   S t r i n g s   f i l e L i s t 
 
 R e m o v e 
 
 
 
 e x i t   O Kb@g	eN]hl 
 
 
 
