c# adobe pdf reader control : Adding a page to a pdf SDK Library service wpf asp.net winforms dnn scripting_essentials9-part1815

A Guide to Using VBScript in SecureCRT 
89
© 2009-2010 VanDyke Software, Inc.
' Iterate through each element of our vLines array and compose a 
' message 
For nIndex = 1 To nLineCount 
' Arrays are indexed at zero... 
strFileText = strFileText & _ 
"Line #" & nIndex & ": " & vLines(nIndex - 1) & vbcrlf 
Next 
' Note that the MsgBox built-in VBScript function will truncate the 
' data displayed in the message box window at 256 characters.  So, 
' even though strFileText will contain all the data from the file, 
' if the file is rather large, it may not all be displayed in the 
' message box. However, at least you won't have a window that is too 
' large to see the OK button at the bottom :). 
MsgBox "Total number of non-blank, non-comment lines from file: " & _ 
nLineCount & vbcrlf & _ 
"Total number of comment & blank lines found: " & nCommentLines & _ 
vbcrlf &  vbcrlf & _ 
g_strDataFile & ":" & _ 
vbcrlf & strFileText 
End Sub 
Function ReadDataFromFile(strFile, _ 
strComment, _ 
ByRef vLines, _ 
ByRef nLineCount, _ 
ByRef nCommentLines) 
' Returns True if the file was found. 
       strFile: IN  parameter specifying full path to data file. 
    strComment: IN  parameter specifying string that preceded 
                    by 0 or more space characters will indicate 
                    that the line should be ignored. 
       vLines: OUT parameter (destructive) containing array 
                   of lines read in from file. 
   nLineCount: OUT parameter (destructive) indicating number 
                   of lines read in from file. 
' nCommentLines: OUT parameter (destructive) indicating number 
                   of comment/blank lines found 
' Check to see if the file exists... if not, bail early. 
If Not g_fso.FileExists(strFile) Then Exit Function 
' Start off with a reasonable size for the array: 
ReDim vLines(5) 
' Open a TextStream Object to the file... 
Set objTextStream = g_fso.OpenTextFile(strFile, 1, False) 
' Used for detecting comment lines, a regular expression object 
Set re = New RegExp 
re.Pattern = "(^[ \t]*(?:" & strComment & ")+.*$)|(^[ \t]+$)|(^$)" 
re.Multiline = False 
re.IgnoreCase = False 
' Now read in each line of the file and add an element to 
' the array for each line that isn't just spaces... 
nLineCount = 0 
nCommentLines = 0 
Do While Not objTextStream.AtEndOfStream 
Adding a page to a pdf - insert pages into PDF file in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Guide C# Users to Insert (Empty) PDF Page or Pages from a Supported File Format
add page numbers to a pdf in preview; add page to pdf online
Adding a page to a pdf - VB.NET PDF Page Insert Library: insert pages into PDF file in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
Easy to Use VB.NET APIs to Add a New Blank Page to PDF Document
add pages to pdf; add page numbers to pdf document
A Guide to Using VBScript in SecureCRT 
90
© 2009-2010 VanDyke Software, Inc.
strLine = "" 
' Find out if we need to make our array bigger yet 
' to accommodate all the lines in the file.  For large 
' files, this can be very memory-intensive. 
If UBound(vLines) >= nLineCount Then 
ReDim Preserve vLines(nLineCount + 5) 
End If 
strLine = Trim(objTextStream.ReadLine) 
' Look for comment lines that match the pattern 
'   [whitespace][strComment] 
If re.Test(strLine) Then 
' Line matches our comment pattern... ignore it 
nCommentLines = nCommentLines + 1 
Else 
vLines(nLineCount) = strLine 
nLineCount = nLineCount + 1 
End If 
Loop 
objTextStream.Close 
ReadDataFromFile = True 
End Function 
With a function like ReadDataFromFile in the above example, you can easily read different sets 
of data from multiple files.  For example, consider a situation in which you might have two files, one 
file that lists the IP addresses or host names of machines to which you need to connect, and a 
second file that lists the commands that need to be sent to each of the remote machines. 
S
S
o
o
l
l
u
u
t
t
i
i
o
o
n
n
:
:
R
R
e
e
a
a
d
d
D
D
a
a
t
t
a
a
f
f
r
r
o
o
m
m
S
S
e
e
p
p
a
a
r
r
a
a
t
t
e
e
F
F
i
i
l
l
e
e
s
s
:
:
H
H
o
o
s
s
t
t
s
s
,
,
C
C
o
o
m
m
m
m
a
a
n
n
d
d
s
s
The following example shows how you might have a nested loop that connects to each of the hosts 
stored in a "hosts.txt" file, individually sending commands read from a "commands.txt" file before 
moving on to the next host. 
' ReadDataFromHostFile-SendCommandsFromCommandsFile.vbs 
'  
' Description: 
  in your "My Documents" folder), ignoring comment/blank lines. 
  file are sent to the remote system. 
  script attempts to detect the command prompt, as command prompts on 
  various hosts may be different.  This auto-detect process involves 
  before attempting to send any commands). 
'  
' Example "hosts.txt" file: 
   # hosts file example 
VB.NET PDF File & Page Process Library SDK for vb.net, ASP.NET
page modifying page, you will find detailed guidance on creating, loading, merge and splitting PDF pages and Files, adding a page into PDF document, deleting
add blank page to pdf preview; add page numbers to pdf files
VB.NET PDF Library SDK to view, edit, convert, process PDF file
Perform annotation capabilities to mark, draw, and visualize objects on PDF document page. Capable of adding PDF file navigation features to your VB.NET program
add page to pdf preview; adding page numbers to pdf documents
A Guide to Using VBScript in SecureCRT 
91
© 2009-2010 VanDyke Software, Inc.
    
   # Redhat Linux Hosts 
   192.168.0.1 
   192.168.1.1 
    
   # Solaris Hosts 
   192.168.0.2 
   192.168.1.9 
' Example "commands.txt" file: 
   # Example Commands.txt file 
    
   # the output within the terminal window... 
   hostname 
    
   # Run 'uptime' to find out how long the machine has been up, and 
   # basic load average. 
   uptime 
    
   # Run 'w' command to see who's logged on 
   w 
    
   # Run 'df' to find out how much disk space is used. 
   df 
Dim g_fso, g_shell 
Set g_fso = CreateObject("Scripting.FileSystemObject") 
Set g_shell = CreateObject("WScript.Shell") 
g_strHostsFile = g_shell.SpecialFolders("MyDocuments") & "\hosts.txt" 
g_strCommandsFile = g_shell.SpecialFolders("MyDocuments") & "\commands.txt" 
g_strComment = "#" 
' If you need to connect via a firewall, specify the necessary 
' pre-defined firewall name right here (must match the name of the 
' firewall as defined in the Global Options, Firewall category)... 
' otherwise, set the g_strFirewall variable to an empty string (""): 
g_strFirewall = " /FIREWALL=linux-dynpf " 
' Define user credentials to be used when authenticating to all remote 
' machines. For this example, we'll be using publickey authentication. 
g_strUsername = "user" 
g_strIdentity = "C:\MyKeys\MyKeyFile.pub" 
Dim g_strError 
MainSub 
Sub MainSub() 
Dim vHosts(), vCommands() 
Dim nHostCount, nCommandCount, nCommentLines 
If Not ReadDataFromFile(g_strHostsFile, _ 
g_strComment, _ 
vHosts, _ 
nHostCount, _ 
nCommentLines) Then 
crt.Dialog.MessageBox g_strError 
Exit Sub 
End If 
C# PDF insert image Library: insert images into PDF in C#.net, ASP
image adding library control for PDF document, you can easily and quickly add an image, picture or logo to any position of specified PDF document file page.
adding pages to a pdf document; add a blank page to a pdf
C# PDF File & Page Process Library SDK for C#.net, ASP.NET, MVC
Provides you with examples for adding an (empty) page to a PDF and adding empty pages to a PDF from a supported file format, with customized options.
add pages to pdf preview; add page to pdf reader
A Guide to Using VBScript in SecureCRT 
92
© 2009-2010 VanDyke Software, Inc.
If Not ReadDataFromFile(g_strCommandsFile, _ 
g_strComment, _ 
vCommands, _ 
nCommandCount, _ 
nCommentLines) Then 
crt.Dialog.MessageBox g_strError 
Exit Sub 
End If 
Dim strErrors, strSuccesses 
' Iterate through each element of our vHosts array... 
For nIndex = 0 To nHostCount - 1        
' Arrays are indexed starting at 0 (zero) 
strHost = vHosts(nIndex) 
' Exit the loop if the host name is empty (this means we've 
' reached the end of our array) 
If strHost = "" Then Exit For 
strConnectString = g_strFirewall & _ 
" /SSH2 /ACCEPTHOSTKEYS " & _ 
" /L " & g_strUsername & _ 
" /I " & g_strIdentity & " " & strHost 
If Connect(strConnectString) <> 0 Then 
strErrors = strErrors & vbcrlf & _ 
vbtab & "Failed to connect to " & strHost & _ 
": " & g_strError 
Else 
crt.Screen.Synchronous = True 
Do 
' Attempt to detect the command prompt heuristically... 
Do 
bCursorMoved = crt.Screen.WaitForCursor(1) 
Loop Until bCursorMoved = False 
' Once the cursor has stopped moving for about a second, we'll 
' assume it's safe to start interacting with the remote system. 
' Get the shell prompt so that we can know what to look for when 
' determining if the command is completed. Won't work if the prompt 
nRow = crt.Screen.CurrentRow 
strPrompt = crt.screen.Get(nRow, _ 
0, _ 
nRow, _ 
crt.Screen.CurrentColumn - 1) 
' Loop until we actually see a line of text appear (the 
' timeout for WaitForCursor above might not be enough 
' for slower-responding hosts). 
strPrompt = Trim(strPrompt) 
If strPrompt <> "" Then Exit Do 
Loop 
' Send each command to the remote system. 
For Each strCommand in vCommands 
' Exit the For..Next loop if our current command is empty... 
' otherwise, we'll just be pressing the Enter key pointlessly. 
If Trim(strCommand) = "" Then Exit For 
crt.Screen.Send strCommand & vbcr 
C# PDF insert text Library: insert text into PDF content in C#.net
C#.NET PDF SDK - Insert Text to PDF Document in C#.NET. Providing C# Demo Code for Adding and Inserting Text to PDF File Page with .NET PDF Library.
add and delete pages in pdf; adding pages to a pdf document in preview
VB.NET PDF insert text library: insert text into PDF content in vb
VB.NET PDF - Insert Text to PDF Document in VB.NET. Providing Demo Code for Adding and Inserting Text to PDF File Page in VB.NET Program.
add page number to pdf preview; add a page to a pdf online
A Guide to Using VBScript in SecureCRT 
93
© 2009-2010 VanDyke Software, Inc.
' Wait for the command to complete before moving on to 
' the next command 
crt.Screen.WaitForString strPrompt 
Next 
' Now disconnect from the current machine before connecting to the 
' next machine 
crt.Session.Disconnect 
strSuccesses = strSuccesses & vbcrlf & _ 
strHost 
End If 
Next 
strMsg = "Commands were sent to the following hosts: " & _ 
vbcrlf & strSuccesses 
If strErrors <> "" Then 
strMsg = strMsg & vbcrlf & vbcrlf & _ 
"Errors were encountered connecting to these hosts:" & _ 
vbcrlf & strErrors 
End If 
crt.Dialog.MessageBox strMsg 
End Sub 
Function ReadDataFromFile(strFile, _ 
strComment, _ 
ByRef vLines, _ 
ByRef nLineCount, _ 
ByRef nCommentLines) 
' Returns True if the file was found. 
       strFile: IN  parameter specifying full path to data file. 
    strComment: IN  parameter specifying string that preceded 
                    by 0 or more space characters will indicate 
                    that the line should be ignored. 
       vLines: OUT parameter (destructive) containing array 
                   of lines read in from file. 
   nLineCount: OUT parameter (destructive) indicating number 
                   of lines read in from file. 
' nCommentLines: OUT parameter (destructive) indicating number 
                   of comment/blank lines found 
' Check to see if the file exists... if not, bail early. 
If Not g_fso.FileExists(strFile) Then 
g_strError = "File not found: " & strFile 
Exit Function 
End If 
' Start off with a reasonable size for the array: 
ReDim vLines(5) 
' Open a TextStream Object to the file... 
Set objTextStream = g_fso.OpenTextFile(strFile, 1, False) 
' A regular expression object used for detecting blank/comment lines,  
Set re = New RegExp 
C# PDF Annotate Library: Draw, edit PDF annotation, markups in C#.
text comments on PDF page using C# demo code in Visual Stuodio .NET class. C#.NET: Add Text Box to PDF Document. Provide users with examples for adding text box
add blank page to pdf; add and delete pages in pdf online
VB.NET TIFF: Add New Image to TIFF File in Visual Basic .NET
However, RasterEdge VB.NET TIFF document processing SDK can offer you the reliable and extensive TIFF page image adding tool that allows you to directly insert
add page numbers to pdf in reader; adding page numbers to pdf document
A Guide to Using VBScript in SecureCRT 
94
© 2009-2010 VanDyke Software, Inc.
re.Pattern = "(^[ \t]*(?:" & strComment & ")+.*$)|(^[ \t]+$)|(^$)" 
re.Multiline = False 
re.IgnoreCase = False 
' Now read in each line of the file and add an element to 
' the array for each line that isn't just spaces... 
nLineCount = 0 
nCommentLines = 0 
Do While Not objTextStream.AtEndOfStream 
strLine = "" 
' Find out if we need to make our array bigger yet 
' to accommodate all the lines in the file.  For large 
' files, this can be very memory-intensive. 
If UBound(vLines) >= nLineCount Then 
ReDim Preserve vLines(nLineCount + 5) 
End If 
strLine = Trim(objTextStream.ReadLine) 
' Look for comment lines that match the pattern 
'   [whitespace][strComment] 
If re.Test(strLine) Then 
' Line matches our comment pattern... ignore it 
nCommentLines = nCommentLines + 1 
Else 
vLines(nLineCount) = strLine 
nLineCount = nLineCount + 1 
End If 
Loop 
objTextStream.Close 
If nLineCount = 0 Then 
g_strError = "ReadDataFromFile() Error.  " & _ 
"No lines (other than blank/comment lines)" & _ 
" were found in file: " & vbcrlf & vbtab & strFile 
Exit Function 
End If 
g_strError = "" 
ReadDataFromFile = True 
End Function 
Function Connect(strConnectInfo) 
' within the script as the script author desires. 
g_strError = "" 
' Turn off error handling before attempting the connection 
On Error Resume Next 
crt.Session.Connect strConnectInfo 
' Capture the error code and description (if any) 
nError = Err.Number 
strErr = Err.Description 
' Restore normal error handling so that any other errors in our 
' script are not masked/ignored 
On Error Goto 0 
A Guide to Using VBScript in SecureCRT 
95
© 2009-2010 VanDyke Software, Inc.
Connect = nError 
If nError <> 0 Then 
g_strError = strErr 
End If 
End Function 
7
7
.
.
3
3
W
W
r
r
i
i
t
t
i
i
n
n
g
g
D
D
a
a
t
t
a
a
t
t
o
o
F
F
i
i
l
l
e
e
s
s
U
U
s
s
i
i
n
n
g
g
t
t
h
h
e
e
F
F
i
i
l
l
e
e
S
S
y
y
s
s
t
t
e
e
m
m
O
O
b
b
j
j
e
e
c
c
t
t
If SecureCRT's logging capability discussed earlier doesn't provide you with the flexibility and 
control you need over what and how data is written, you can take advantage of VBScript's 
FileSystemObject (mentioned earlier) and TextStreamObject.  Another example of when you 
might want to write to a file is if you needed to create a CSV file from the text selected within the 
terminal window. 
Writing data to a file using the VBScript FileSystemObject can typically be accomplished using 
the following general steps: 
1) Get a reference to the FileSystemObject: 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
2) Use the FileSystemObject reference to retrieve a reference to a TextStream object 
associated with the text file to which the data is to be written. 
Const ForWriting = 2 
Const ForAppending = 8 
' Create a new file (or overwrite an existing one) 
Set objStream = objFSO.OpenTextFile( _ 
"C:\Temp\MyDataFile.txt", _ 
ForWriting, _ 
True) 
' Append to an existing file (create if it doesn't exist) 
Set objStream = objFSO.OpenTextFile( _ 
"C:\Temp\MyDataFile.txt", _ 
ForAppending, _ 
True) 
3) Write the data to the file using the TextStream object's Write or WriteLine methods.  
The WriteLine method automatically appends EOL characters to the end of the data 
supplied to the method. 
objStream.Write "This data is written " 
objStream.Write "as one single line." 
Or: 
objStream.WriteLine "This data is written " 
objStream.WriteLine "as two separate lines." 
Note that you can write multiple lines using either method by manually inserting CRLF 
sequences as needed, for example: 
A Guide to Using VBScript in SecureCRT 
96
© 2009-2010 VanDyke Software, Inc.
objStream.Write "This is line one." & vbcrlf & _ 
"This is line two." & vbcrlf & _ 
"This is line three." & vbcrlf & _ 
"This is line four." & vbcrlf 
Or: 
objStream.WriteLine "This is line one." & vbcrlf & _ 
"This is line two." & vbcrlf & _ 
"This is line three." & vbcrlf & _ 
"This is line four." 
4) When you have completed writing data to the file, close the file: 
objStream.Close 
A Guide to Using VBScript in SecureCRT 
97
© 2009-2010 VanDyke Software, Inc.
S
S
o
o
l
l
u
u
t
t
i
i
o
o
n
n
:
:
S
S
a
a
v
v
e
e
S
S
e
e
l
l
e
e
c
c
t
t
e
e
d
d
T
T
e
e
x
x
t
t
t
t
o
o
a
a
C
C
S
S
V
V
F
F
i
i
l
l
e
e
The following example solution shows how you might be able to select data from the terminal 
window, save the data to a CSV file, and then display the CSV file within the default CSV file 
application, as depicted in the graphic below. 
Saving Selected Text to a CSV File 
Here's the sample solution code for saving selected text to a CSV file: 
#$language = "VBScript" 
#$interface = "1.0" 
' SaveSelectedTextToCSVFile.vbs 
' Description: 
A Guide to Using VBScript in SecureCRT 
98
© 2009-2010 VanDyke Software, Inc.
   converted to a single comma character. 
    
' Demonstrates: 
     text selected within the terminal window. 
   - How to use the Scripting.FileSystemObject to write data to a 
     text file. 
     characters into a single comma character. 
   - One way of displaying a file browse/open dialog in Windows XP 
'  
' to the existing file, or cancel the operation. 
Dim g_nMode 
Const ForWriting = 2 
Const ForAppending = 8 
' Be "tab safe" by getting a reference to the tab for which this script 
' has been launched: 
Set objTab = crt.GetScriptTab 
Set g_shell = CreateObject("WScript.Shell") 
Set g_fso   = CreateObject("Scripting.FileSystemObject") 
SaveSelectedTextToCSVFile 
Sub SaveSelectedTextToCSVFile() 
' Capture the selected text into a variable. The 'Selection' property 
' is available in SecureCRT 6.1 and later. This line of code will cause 
' an error if launched in a version of SecureCRT earlier than 6.1. 
strSelection = objTab.Screen.Selection 
' Check to see if the selection really has any text to save... we don't 
' usually want to write out nothing to a file. 
If Trim(strSelection) = "" Then 
crt.Dialog.MessageBox "Nothing to save!" 
Exit Sub 
End If 
strFilename = g_shell.SpecialFolders("MyDocuments") & _ 
"\" & crt.Session.RemoteAddress & "-SelectedText.csv" 
Do 
strFilename = BrowseForFile(strFilename) 
If strFilename = "" Then Exit Sub 
' Do some sanity checking if the file specified by the user already 
' exists... 
If g_fso.FileExists(strFilename) Then 
nResult = crt.Dialog.MessageBox( _ 
"Do you want to replace the contents of """ & _ 
strFilename & _ 
""" with the selected text?" & vbcrlf & vbcrlf & _ 
vbtab & "Yes = overwrite" & vbcrlf & vbcrlf & _ 
vbtab & "No = append" & vbcrlf & vbcrlf & _ 
vbtab & "Cancel = end script" & vbcrlf, _ 
"Replace Existing File?", _ 
Documents you may be interested
Documents you may be interested