Category : Lotus and other Spreadsheets
Archive   : QPROUTIL.ZIP
Filename : DELREAD.WQ1

 QT–$T
T   :;œ/






ÿ&Cq
.
K
d š™

ž uˆ<ä7~›@4à 4à4à4à á ááá #{contents CUR
=
=COLCOUNTÿÿ

CURRENT



 DELIMITER

FILENAME

FINISH
+
+HOME

IMPORT

IMPORTER

LOOP

NEXTLINE
0
0
OUTPUTCELL

OUTPUTLABEL
%
%OUTPUTLABEL_NL
:
:POSITION

PRINTED?

QUOTE

TEMP

\I



ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿC
T0
ÿÿÿÿÿÿÿÿÿC
T
C
C
C
Cÿ# ÿÿÿÿÿÿÿÿŸ ÿÿÿÿÿÿÿÿ  ÿÿÿÿÿÿÿÿ¡ ÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ$
%
&
'
(
@è€ï»d¼
)
'*ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿfÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿgÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿµQÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿi(ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ¶ÿÿÿÿÿÿÿÿ·"ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿü©ñÒMb@?¹-Êÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ
ÿ
16.,,WQ1






ie
ÿÿ2x¼ÿÿÿÿÿÿÿ


TRO.MUÈ123.MU^
C

²± 

4ÄÙ
~6\217^
: Everex: Esc{EC}p<P
E: Eveex @
{FUNCTIONSKd
A: ParaDel{DEL}ÅvT+„
B: Pa ? {BEEP}qq


á$
á
á
á
á
á
P}qÅv DŠF÷
Àu
ÆF÷
ÅvƒFþ
réjÿŠF÷
vò



<ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿËHÿ¯Bl3搉c3rE?E






ÖÿI•êXêP
3>
×ÿ@8rEêì;
3 0Nd¢5ÿ
'Lÿÿÿÿÿÿ½¿
¾
À
Á 


ÌÄ
ÑdSAMPLE

DATE
AMORT
BDATE
CONVERT
FINANCE
MATH
ÿ'tempÿ
'currentÿ'homeÿ'colcountÿ'positionÿ' delimiterÿ'filename ÿ'QUOTEÿ'PRINTED? ÿ
'\iÿ 'importer
ÿ'importÿ'loopÿ'
outputcellÿ%'outputlabel
ÿ+'finishÿ0'nextlineÿ:'outputlabel_nlÿC'TEMPÿD'CURRENTÿE'HOMEÿF'COLCOUNTÿG'POSITIONÿH' DELIMITERÿI'FILENAME ÿJ'QUOTEÿK'PRINTED? ÿL'\IÿM'IMPORTER
ÿN'IMPORTÿO'LOOPÿP'
OUTPUTCELLÿQ'OUTPUTLABEL
ÿR'FINISHÿS'NEXTLINEÿT'OUTPUTLABEL_NLÿ
'

ÿ

'ÿ
' [SHEET2]$A$1
ÿ
ÿ
'
,ÿ
'c:\comqttst.prnÿ
'
"
ÿ
,ÿ

'%{let printed?,0}{menubranch importer}ÿ
'Only Commas Import5ÿ

'.Import a file with fields separated by commas.ÿ
'{let QUOTE,""}ÿ
'{let delimiter,","}$ÿ
'{import}{menubranch importer}5ÿ
'.{getlabel "Name of File to Import: ",filename}5ÿ
'.{open filename,"r"}{beep}{beep}{branch import}.ÿ
''{indicate "WAIT"}{windowsoff}{paneloff}Iÿ
'B{let colcount,0}{let current,""}{let home,@cellpointer("address")}ÿ
'
{branch loop}#ÿ
'{read 1,temp}{branch finish}-ÿ
'&{if temp=delimiter}{branch outputcell}=ÿ
'6{if temp=@char(10)#or#temp=@char(13)}{branch nextline}!ÿ
'{let current,current&temp}ÿ
'
{branch loop}ÿ
'{recalccol b1..b65}bÿ
'[{if @left(@trim(current),1)=QUOTE #AND# @right(@trim(current),1)=QUOTE}{branch outputlabel}Nÿ
š:
ð???!{if @iserr(@value(current))}{let addressO ,current}35ÿ
/{if @iserr(@value(current))}{let $A$68,current}[ÿ
‘<
ðLLL&{if #not#@iserr(@value(current))}{let addressO,@value(current)}3Bÿ
<{if #not#@iserr(@value(current))}{let $A$68,@value(current)}ÿ
!'{let current,""} ÿ
"'{let colcount,colcount+1}ÿ
#'{right}{branch loop}ÿ
%'{recalccol b1..b65}Mÿ
&š<
ð>>>{let addressO$,@mid(current,1,@length(current)-2)}34ÿ
&.{let $A$68,@mid(current,1,@length(current)-2)}ÿ
''{let current,""} ÿ
('{let colcount,colcount+1}ÿ
)'{right}{branch loop}5ÿ
+'.{panelon}{windowson}{close}{recalccol b1..b65}ÿ
,'{indicate}{goto}ÿ
-Ÿ

ð


~€ÕŸ3ÿ
-
[SHEET2]$A$1~ÿ
.'{menubranch importer}*ÿ
0'#{recalccol b1..b65}{let printed?,0}2ÿ
1'+{if colcount=0#AND#current=""}{branch loop}eÿ
2'^{if @left(@trim(current),1)=QUOTE #AND# @right(@trim(current),1)=QUOTE}{branch outputlabel_nl}^ÿ
3‘>
ðOOO!{if @iserr(@value(current))}{let addressO,current}{let printed?,1}3Eÿ
3?{if @iserr(@value(current))}{let $A$68,current}{let printed?,1}kÿ
4š>
ð\\\&{if #not#@iserr(@value(current))}{let addressO!,@value(current)}{let printed?,1}3Rÿ
4L{if #not#@iserr(@value(current))}{let $A$68,@value(current)}{let printed?,1}Aÿ
5•@
ð222{if printed?=0}{let addressO ,current}3(ÿ
5"{if printed?=0}{let $A$68,current}&ÿ
6'{let current,""}{left colcount}ÿ
7'{let colcount,0}ÿ
8'{down}{branch loop}ÿ
:'{recalccol b1..b65}Mÿ
;š<
ð>>>{let addressO$,@mid(current,1,@length(current)-2)}34ÿ
;.{let $A$68,@mid(current,1,@length(current)-2)}&ÿ
<'{let current,""}{left colcount}ÿ
='{let colcount,0}ÿ
>'{down}{branch loop} ÿ
C'B1 ÿ
D'B2 ÿ
E'B3 ÿ
F'B4 ÿ
G'B5 ÿ
H'B6 ÿ
I'B7 ÿ
J'B8 ÿ
K'B9
ÿ
L'B11
ÿ
M'B13
ÿ
N'B19
ÿ
O'B24
ÿ
P'B30
ÿ
Q'B38
ÿ
R'B44
ÿ
S'B49
ÿ
T'B59%ÿ 'Comma & Quote Delimited ImportEÿ
'>Import file with comma separated fields, and labels in quotes.ÿ'{let QUOTE,""""}ÿ'{let delimiter,","}$ÿ'{import}{menubranch importer}ÿ 'X & Y Delimited Import>ÿ
'7Import file with X separated fields, and labels in Y's.Gÿ'@{getlabel "Enter the symbol which separates fields: ",delimiter}Bÿ';{getlabel "Enter the symbol which encloses labels: ",QUOTE}$ÿ'{import}{menubranch importer}ÿ 'Quitÿ
'Exit the macro
ÿ'{quit}ÿ:'ÿ;'