iFNumber = FreeFile
‘Create new file or overwrite existing file
Open sFName For Output As #iFNumber
lRow = 2
Do
‘Read data from worksheet
With Sheet1
sLine = Format(.Cells(lRow, 1), “yyyy-mmm-dd”) & “;”
sLine = sLine & .Cells(lRow, 2) & “;”
sLine = sLine & .Cells(lRow, 4) & “;”
sLine = sLine & Format(.Cells(lRow, 6), “0.00”)
End With
‘Write data to file
Print #iFNumber, sLine
‘Address next row of worksheet
lRow = lRow + 1
‘Loop until an empty cell is found
Loop Until IsEmpty(Sheet1.Cells(lRow, 1))
‘Close the file
Close #iFNumber
End Sub
The code assembles each line of the file in a variable sLine. For data other than strings, it uses the
Formatfunction to convert the data to a string. Asemicolon is used as a separator. The Printstatement
writes the string to the file. The result is shown in Figure 11-4.
Figure 11-4
228
Chapter 11: Text Files and File Dialog
Pdf rotate single page reader - rotate PDF page permanently in C#.net, ASP.NET, MVC, Ajax, WinForms, WPF
Empower Users to Change the Rotation Angle of PDF File Page Using C#
change orientation of pdf page; pdf rotate all pages
Pdf rotate single page reader - VB.NET PDF Page Rotate Library: rotate PDF page permanently in vb.net, ASP.NET, MVC, Ajax, WinForms, WPF
PDF Document Page Rotation in Visual Basic .NET Class Application
rotate all pages in pdf and save; rotate individual pages in pdf
Reading Data Strings
To read this data, you need to split the strings to locate the values as shown in the following code. Code
that is specific to ReadFileis highlighted:
Sub ReadStrings()
Dim sLine As String
Dim sFName As String    ‘Path and name of text file
Dim iFNumber As Integer    ‘File number
Dim lRow As Long     ‘Row number in worksheet
Dim lColumn As Long  ‘Column number in worksheet
Dim vValues As Variant ‘Hold split values
Dim iCount As Integer  ‘Counter
sFName = “C:\VBA_Prog_Ref\Chapter12\JanSalesStrings.txt”
‘Get an unused file number
iFNumber = FreeFile
‘Prepare file for reading
Open sFName For Input As #iFNumber
Sheet2.Cells.Clear
‘First row for data
lRow = 2
Do
‘Read data from file
Line Input #iFNumber, sLine
‘Split values apart into array
vValues = Split(sLine, “;”)
With Sheet2
‘First column for data
lColumn = 1
‘Process each value in array
For iCount = LBound(vValues) To UBound(vValues)
‘Write value to worksheet
.Cells(lRow, lColumn) = vValues(iCount)
‘Increase column count
lColumn = lColumn + 1
Next iCount
End With
‘Address next row of worksheet
229
Chapter 11: Text Files and File Dialog
VB.NET PDF Page Delete Library: remove PDF pages in vb.net, ASP.
Able to remove a single page from adobe PDF document in VB.NET. using RasterEdge. XDoc.PDF; How to VB.NET: Delete a Single PDF Page from PDF File.
how to reverse pages in pdf; rotate pdf pages and save
C# PDF Page Delete Library: remove PDF pages in C#.net, ASP.NET
application. Able to remove a single page from PDF document. Ability Demo Code: How to Delete a Single PDF Page from PDF File in C#.NET. How to
pdf rotate page; rotate all pages in pdf file
lRow = lRow + 1
‘Loop until end of file
Loop Until EOF(iFNumber)
‘Close the file
Close #iFNumber
End Sub
LineInputreads an entire line of the file into sLine. The Splitfunction breaks the text apart using the
delimiter character, creating an array of values in vValues. The For...Nextloop processes each value
in the array, writing the value into the worksheet.
Flexible Separators and Delimiters
Now that you have seen the basic techniques in action, you will set up some code that allows you to
choose the separator and delimiter characters to suit the situation. The following code defines them
using constants, which can be varied. The code inserts the delimiters and separators as required:
Sub WriteStringsWithDelimiters()
Dim sLine As String
Dim sFName As String    ‘Path and name of text file
Dim iFNumber As Integer    ‘File number
Dim lRow As Long     ‘Row number in worksheet
Const sVS As String = “;”   ‘Variable separator character
Const sTD As String = “”””  ‘Text delimiter character
Const sDD As String = “#”    ‘Date delimiter character
sFName = “C:\VBA_Prog_Ref\Chapter12\JanSalesStringsDelimited.txt”
‘Get an unused file number
iFNumber = FreeFile
‘Create new file or overwrite existing file
Open sFName For Output As #iFNumber
lRow = 2
Do
‘Read data from worksheet
With Sheet1
sLine = sDD & Format(.Cells(lRow, 1), “yyyy-mmm-dd”) & sDD & sVS
sLine = sLine & sTD & .Cells(lRow, 2) & sTD & sVS
sLine = sLine & sTD & .Cells(lRow, 4) & sTD & sVS
sLine = sLine & Format(.Cells(lRow, 6), “0.00”)
End With
‘Write data to file
Print #iFNumber, sLine
‘Address next row of worksheet
230
Chapter 11: Text Files and File Dialog
VB.NET PDF- View PDF Online with VB.NET HTML5 PDF Viewer
C#.NET PDF file & pages edit, C#.NET PDF pages extract, copy, paste, C#.NET rotate PDF pages, C# Users can view PDF document in single page or continue
rotate pages in pdf online; how to rotate a page in pdf and save it
How to C#: Basic SDK Concept of XDoc.PDF for .NET
insert, delete, re-order, copy, paste, cut, rotate, and save or query data and save the PDF document. The PDFPage class presents a single page in a PDFDocument
saving rotated pdf pages; rotate pages in pdf
lRow = lRow + 1
‘Loop until an empty cell is found
Loop Until IsEmpty(Sheet1.Cells(lRow, 1))
‘Close the file
Close #iFNumber
End Sub
The file produced by the code is shown in Figure 11-5.
Figure 11-5
The following code is used to read the file. It uses the delimiter characters to decide the data type of each
item and treat it appropriately:
Sub ReadStringsWithDelimiters()
Dim sLine As String
Dim sFName As String    ‘Path and name of text file
Dim iFNumber As Integer    ‘File number
Dim lRow As Long     ‘Row number in worksheet
Dim lColumn As Long     ‘Column number in worksheet
Dim vValues As Variant
Dim vValue As Variant
Dim iCount As Integer
Const sVS As String = “;”   ‘Variable separator character
Const sTD As String = “”””  ‘Text delimiter character
Const sDD As String = “#”    ‘Date delimiter character
sFName = “C:\VBA_Prog_Ref\Chapter12\JanSalesStringsDelimited.txt”
‘Get an unused file number
231
Chapter 11: Text Files and File Dialog
C# PDF Convert to Tiff SDK: Convert PDF to tiff images in C#.net
Both single page and multipage tiff image files can be created from PDF. Supports tiff compression selection. Supports for changing image size.
rotate single page in pdf file; permanently rotate pdf pages
VB.NET PDF: Basic SDK Concept of XDoc.PDF
insert, delete, re-order, copy, paste, cut, rotate, and save or query data and save the PDF document. The PDFPage class presents a single page in a PDFDocument
reverse page order pdf; pdf rotate all pages
iFNumber = FreeFile
‘Prepare file for reading
Open sFName For Input As #iFNumber
Sheet2.Cells.Clear
‘First row for data
lRow = 2
Do
‘Read data from file
Line Input #iFNumber, sLine
‘Split values apart into array
vValues = Split(sLine, sVS)
‘First column for data
lColumn = 1
‘Process each value in array
For Each vValue In vValues
‘Determine value type using first character
Select Case Left(vValue, 1)
‘String
Case sTD
Sheet2.Cells(lRow, lColumn) = Mid(vValue, 2, Len(vValue) - 2)
‘Date
Case sDD
Sheet2.Cells(lRow, lColumn) = _
DateValue(Mid(vValue, 2, Len(vValue) - 2))
‘Other
Case Else
Sheet2.Cells(lRow, lColumn) = vValue
End Select
lColumn = lColumn + 1
Next vValue
‘Address next row of worksheet
lRow = lRow + 1
‘Loop until end of file
Loop Until EOF(iFNumber)
‘Close the file
Close #iFNumber
End Sub
232
Chapter 11: Text Files and File Dialog
VB.NET PDF File & Page Process Library SDK for vb.net, ASP.NET
With VB.NET PDF SDK, PDF document page can be rotated to 90, 180, and 270 in clockwise. Both a single page and whole file pages can be rotated and saved as
pdf rotate single page; rotate all pages in pdf file
VB.NET PDF File Merge Library: Merge, append PDF files in vb.net
all. This guiding page will help you merge two or more PDF documents into a single one in a Visual Basic .NET imaging application.
pdf expert rotate page; pdf page order reverse
The For...Nextloop of ReadStringshas been replaced by a ForEach...Nextloop, to show a slightly
different approach. The SelectCasestructure determines the data type of each item by examining the
first character. For strings and dates, it strips off the delimiters. For dates, it converts the character string
to a VBAdate type.
FileDialog
The FileDialogobject allows you to display the File➪Open and File➪Save As dialog boxes using
VBA. Excel 2007 users can also use the GetOpenFileNameand GetSaveAsFileNamemethods of the
Applicationobject to carry out similar tasks. One advantage of FileDialogis that it has one extra
capability that allows you to display a list of directories, rather than files and directories. FileDialog
also has the advantage of being available to all Office applications.
Set up a worksheet to display images and allow the user to choose them through the File➪Open dialog
box. Figure 11-6 shows how the application looks.
Figure 11-6
The worksheet contains an Imagecontrol created using the ActiveX controls from the Developer tab of
the Ribbon, with the default name of “Image1”. The pictureSizeModeproperty of the control is set to
zoomso the picture is automatically fitted in the control. The command button above it has been named
cmdGetFile.
233
Chapter 11: Text Files and File Dialog
The class module behind Sheet1 contains the following event procedure:
Private Sub cmdGetFile_Click()
Dim fd As FileDialog
Dim ffs As FileDialogFilters
On Error GoTo Problem
‘Set up File | Open dialog
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
‘Clear default filters and create picture filter
Set ffs = .Filters
With ffs
.Clear
.Add “Pictures”, “*.jpg”
End With
‘Allow only one file selection
.AllowMultiSelect = False
‘Show the dialog. Exit if Cancel is pressed
If .Show = False Then Exit Sub
‘Load selected file into Image
Image1.Picture = LoadPicture(.SelectedItems(1))
End With
Exit Sub
Problem:
MsgBox “That was not a valid picture”
End Sub
The FileDialogproperty of the Applicationobject returns a reference to the Office FileDialogs
object. Use the following msoFileDialogTypeconstants to specify the type of dialog.
msoFileDialog Constants
Value
msoFileDialogOpen
1
msoFileDialogSaveAs
2
msoFileDialogFilePicker
3
msoFileDialogFolderPicker
4
234
Chapter 11: Text Files and File Dialog
FileDialogFilters
Use the Filtersproperty of the FileDialogobject to return a reference to the FileDialogFilters
collection for the FileDialog. The filters control the types of files that are displayed. By default, there
are 24 preset filters that the user can select from the drop-down menu at the bottom of the File➪Open
dialog box. The Clearmethod of the FileDialogFilterscollection removes the preset filters, and you
add your own filter that shows only .jpgfiles.
The Showmethod of the FileDialogobject displays the dialog box. When the user clicks the Open but-
ton, the Showmethod returns a value of True. If the user clicks the Cancel button, the Showmethod
returns Falseand you exit from the procedure.
FileDialogSelectedItems
The Showmethod does not actually open the selected file, but places the filename and path into a
FileDialogSelectedItemscollection. As you will see later, it is possible to allow multiple file selec-
tion. In the present example, the user can only select one file. The name of the file is returned from the
first item in the FileDialogSelectedItemscollection, which is referred to by the SelectedItems
property of the FileDialogobject.
Use the LoadPicturefunction to assign the file to the Pictureproperty of the Imagecontrol.
Dialog Types
There is very little difference among the four possible dialog types, apart from the heading at the top of
the dialog. The file picker and folder picker types show Browse in the title bar, and the others show 
File➪Open and File➪Save As dialogs, as appropriate. All the dialogs show directories and files except
the folder picker dialog, which shows only directories.
Execute Method
As you have seen, the Showmethod displays the FileDialog,and the items chosen are placed 
in the FileDialogSelectedItemsobject without any attempt to open or save any files. You can 
use the Executemethod with the File➪Open and File➪Save As dialogs to carry out the required
Openor Save As operations after the user clicks the Open or Save button, as shown in the
followingcode:
With Application.FileDialog(xlDialogOpen)
If .Show Then .Execute
End With
235
Chapter 11: Text Files and File Dialog
MultiSelect
The application in Figure 11-7 has been modified to allow the user to select multiple filenames by hold-
ing down Shift or Ctrl while clicking filenames. The filenames are then loaded into the combo box, called
ComboBox1, at the top of the screen, from which the files can be chosen for viewing.
Figure 11-7
The code has been modified as follows:
Private Sub cmdGetFile_Click()
Dim fd As FileDialog
Dim ffs As FileDialogFilters
Dim vItem
On Error GoTo Problem
‘Set up File | Open dialog
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
236
Chapter 11: Text Files and File Dialog
‘Clear default filters and create picture filter
Set ffs = .Filters
With ffs
.Clear
.Add “Pictures”, “*.jpg”
End With
‘Allow multiple file selection
.AllowMultiSelect = True
‘Show the dialog. Exit if Cancel is pressed
If .Show = False Then Exit Sub
‘Load selected files into combo box
ComboBox1.Clear
For Each vItem In .SelectedItems
ComboBox1.AddItem vItem
Next vItem
‘Display first file
ComboBox1.ListIndex = 0
End With
Exit Sub
Problem:
MsgBox “That was not a valid picture”
End Sub
Private Sub ComboBox1_Change()
Image1.Picture = LoadPicture(ComboBox1.Text)
End Sub
You set the AllowMultiSelectproperty to True. The combo box list is cleared of any previous items,
and you use a ForEach...Nextloop to add the items in the FileDialogSelectedItemscollection to
the combo box list. When you set the combo box ListIndexproperty to 0, it triggers the Changeevent
and the event procedure loads the first picture into the image control.
237
Chapter 11: Text Files and File Dialog
Documents you may be interested
Documents you may be interested