Find from list

[johnkoh]

Hi All,

I want to find (1) number of occurs (2) If number of occurs is more than 2 then I need the "path" values from list as this samples.
I used the Word_occurs() for finding the Number of Records.

I am trying to append the invoices by same job name,
as like pdf_append(Invoices_1329.pdf , Invoices_1351.pdf, one_pdf_file ).
I have trouble to find the "Path (example; Invoices_1329.pdf and Invoices_1351.pdf)" from my list.

'The folder List files, after created the PDF files
vfolder=<<%list%
Y:\shareData\Invoices\Group by Job\UMMC Shock Trauma\Invoices_1329.pdf
Y:\shareData\Invoices\Group by Job\UMMC Shock Trauma\Invoices_1351.pdf
Y:\shareData\Invoices\Group by Job\UM Bookstore\Invoices_1278.pdf
Y:\shareData\Invoices\Group by Job\UM Bookstore\Invoices_1800.pdf
Y:\shareData\Invoices\Group by Job\UMB Terrace\Invoices_1093.pdf
Y:\shareData\Invoices\Group by Job\NASM Renovations PH 2\Invoices_1333.pdf
%list%

vfolder = alltrim(vfolder)
nFolder = *count(vFolder)
vTrimFolder=""
for each foo in vfolder
	'get the job name only and subtract with job name
	vTrimfolder = vtrimfolder + alltrim(word(foo.value,5,chr(92)))+crlf() 
next

vPostfolder = *remove_duplicates(alltrim(vTrimFolder))

'How to find the number of occur from the list?
nLine=0
for each x  in vPostFolder
	nFound = word_occurs(alltrim(vTrimFolder),alltrim(x.value),crlf())  'vTrimFolder - work
		
	If nFound = 1
'               'It works fine when nFound = 1 case
		'show the pdf file
		nLine = word_number_get(vTrimFolder,alltrim(x.value),crlf())
		'msgbox("Numb of found ","Found "+str(nfound)+" line as  "+str(nLine) )
		vViewFilePath = alltrim(word(vFolder,nLine,crlf()))	
 
'		if file.exists(vViewFilePath) then 
'			sys_open(vViewFilePath)
'		else
'			ui_msg_box("Error Opening File","File "+vViewFilePath +  "does not exist.",ui_stop_symbol)
'		end if 					
	else if nFound > 1
		'How can I get the nTh Line number			
		for i = 1 to nfound
			[COLOR="#FF0000"][B]nLine = word_number_get(vTrimFolder,alltrim(x.value),crlf())  'I can find only one[/B][/COLOR]
			msgbox("Numb of found 2","Found "+str(nfound)+" line as  "+str(nLine) )	
			vViewFilePath = alltrim(word(vFolder,nLine,crlf()))	
		
		next i	
                'Append here
                'pdf_append(vPage1,vPage2,vSavePdffile)
        end if

I also tried with an Array but I have no idea what to do next.

vfolder = alltrim(vfolder)


'create an array
nCount = *count(vFolder)
dim a_folderList[nCount] as p
're-arrange the list, path + jobname+inv_name
cWord =""
for i = 1 to nCount
	cWord = word(vFolder,i,crlf())
	a_folderList[i].path = word(cWord,1,chr(92))+chr(92)+word(cWord,2,chr(92))+chr(92)+word(cWord,3,chr(92))+chr(92)+word(cWord,4,chr(92))+chr(92)
	a_folderList[i].jobnm = word(cWord,5,chr(92))+chr(92)
	a_folderList[i].invNm = word(cWord,6,chr(92))
next
showvar(a_folderList[6].path,"test array list")

[COLOR="#FF0000"][B][COLOR="#FF0000"][B]'How to find the Number of occurs with this array?[/B][/COLOR][/B][/COLOR]

[Stan Mathews]

Re: Find from list

Word_number_get() will only ever return the first occurrence so it is not appropriate to what you are doing in the multiple occurrence case.


for qx = 1 to nfound
if x.value $ word(vFolder,nfound,crlf())
vViewFilePath = alltrim(word(vFolder,nfound,crlf()))
sys_open(vViewFilePath)
end if
next qx

[Stan Mathews]

Re: Find from list

You could do something like this.

Given the list..........


lst
= Joe 123
Bill 456
Bob 123
William 789
Tom 666
Mike 321

'find the word number desired
qv = WORD_NUMBER_GET(lst,"123",crlf())
= 1
' do something with the #1 entry

'remove the #1 entry from the list
lst = word_subtract(lst,word(lst,qv,crlf()),crlf())

'list now contains
lst
= Bill 456
Bob 123
William 789
Tom 666
Mike 321

qv = WORD_NUMBER_GET(lst,"123",crlf())
= 2
'do something with the second entry

[johnkoh]

Re: Find from list

Thank you, Stan.

I came out this. I could not able to make this until you gave me the subtract idea.

if nFound >= 2
	nCycle = 0
	if nFound>=11 then
	    msgbox("Error","Found Too many Records ")
	end if
		
	If inlist2(str(nFound),"2,4,6,8,10") then
	    for i = 1 to nFound
			nCycle = nLine+i-1  'Base on subsort, The Next one must be as following, #3+1(i)-1 = 3, #3+2(i)-1 = 5
			vMultyFolder = vMultyFolder+word(vFolder,nCycle,crlf())+crlf()  
	    next i			    
	    'Append here

	else
	    msgbox("odd number")    
	    'Append here
	end if
end if		
       'show the Pdf file
	if file.exists(vViewFilePath) then 
		sys_open(vViewFilePath)
	else
		ui_msg_box("Error Opening File","File "+vViewFilePath +  "does not exist.",ui_stop_symbol)
	end if

I tested up to 2 records and works fine. Thank you again.


PDF_Append Code here and I have another question here. How can I make it as Dynamic(?) way?
So I do not have to write for all the 10th cases.

		select
		    case nFound = 2
		    	vPage1 = word(vMultyFolder,1,crlf())
		    	vPage2 = word(vMultyFolder,2,crlf())
		    	vViewFilePath = substr(vPage2,1,at(chr(92),vPage2,5))+"Combine1.pdf"
		    	pdf_append(vPage1,vPage2,vViewFilePath)

		    case nFound = 4
		    	vPage1 = word(vMultyFolder,1,crlf())
		    	vPage2 = word(vMultyFolder,2,crlf())
		    	vPage3 = word(vMultyFolder,3,crlf())
		    	vPage4 = word(vMultyFolder,4,crlf())			    	
		    	vViewFilePath1 = substr(vPage2,1,at(chr(92),vPage2,5))+"Combine1.pdf"
		    	'pdf_append(vPage1,vPage2,vViewFilePath1)

		    	vViewFilePath2 = substr(vPage2,1,at(chr(92),vPage2,5))+"Combine2.pdf"
		    	'pdf_append(vPage3,vPage4,vViewFilePath2)	
		    	
		    	[COLOR="#FF0000"]'Can I do this?
                        vViewFilePath = substr(vPage2,1,at(chr(92),vPage2,5))+"Combine1.pdf"

		    	'pdf_append(vPage1,vPage2 + vPage3 + vPage4, vViewFilePath)
		    	
		    	'or
		    	
		    	'pdf_append(vPage1, vAll=<<%All%
		    	'vPage2
		    	'vPage3
		    	'vPage4
		    	'%all%
		    	' ,vViewFilePath )
		    	
		    	
		    	'pdf_append(vViewFilePath1,vViewFilePath2,vViewFilePath)[/COLOR]		    	
		    case nFound = 6
		    	'...

		end select

[Stan Mathews]

Re: Find from list

Why would you ask that? The documentation says pdf_append() takes two separate file names and an optional output file name. Why would you think you can supply four names as one?

You don't need the separate case statements.

if nfound > 0
for qz = 1 to nfound
eval("vpage"+alltrim(str(qz))) = word(vMultyFolder,qz,crlf())
next qz


then

for qm = 2 to qz
pdf_append(vpage1,eval("vpage"+alltrim(str(qm))))
next qm

[johnkoh]

Re: Find from list


Thank you

[john michaels]

Re: Find from list

Try this. I can't test it so i don't know if there are errors.

         	dim vpath as C
	    	if mod(nFound,2)=0
	    		vpath=substr(word(vMultyFolder,2,crlf()),1,at(chr(92),word(vMultyFolder,2,crlf()),5))
	    		
	    		for ax = 1 to nFound
	    			eval("vPage"+(""+ix))=word(vMultiFolder,ax,crlf())
	    			eval("vViewFilePath"+ax)= eval(vpath+"Combine"+ax+".pdf")
	    		next
	    		
	    		for bx= 2 to nFound step 2
				pdf_append(eval("vPage"+(""+(bx-1))),eval("vPage"+(""+bx)),eval("vViewFilePath"+(""+(bx/2)))
			next
	    	end if

later: gosh, I guess that about the same thing Stan wrote but with more words.