arts-pdf split pro 2.0 Benutzerhandbuch

 

 

txtOutput, txtCoordinateFile)  
        Case 3  
           lSplitResult = SplitPro.SplitByFileSize(txtInput, txtOutput, 
txtFileSize)  
        Case 4  
            lSplitResult = SplitPro.SplitIntoSinglePages(txtInput, 
txtOutput, txtBaseName)  
    End Select  
                      
    'Check if an error occurred  
    If lSplitResult <> 0 Then  
        'If an error has occurred display the error message  
        MsgBox (SplitPro.GetErrorMessage(lSplitResult))  
    End If  
      
    Set SplitPro = Nothing  
  
End Sub 

 

 
 

 

 
<% 
 Dim 

ARTSSplitPro 

 

 
 

'Check to see if title has been entered or not 

 u_title=request.form("u_title") 
 

if u_title = "" then 

%> 
 
<!-- Input form area - This will only display when no Title has been 
entered --> 
<form method="POST" action="<%= 
request.servervariables("script_name")%>"> 
 

<p>Input File Name<br><input type="text" name="u_title" 

size="30"></p> 

 

 

<p>Page Range<br><input type ="text" name= "pagerange" size 

="35"></p>  
 

<p>Output File Name<br><input type="text" name="outputfilename" 

size="35"><input type="submit" value="Submit" ></p> 
</form> 
 
<% 
 end 

if 

%> 
 
<% 
 

if u_title <> "" then 

 

 

' If there is a user inputted title 

 

 

' get all of the user's input values 

  

u_title=request.form("u_title") 

  

pagerange=Request.form("pagerange") 

 

 

outputfilename = Request.Form("outputfilename") 

 

  Page 44 of 58