ByteScout Data Extraction Suite – VB.NET – Search text with spreadsheet sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VB.NET – Search text with spreadsheet sdk

printable version:
ByteScout-Data-Extraction-Suite-VB-NET-Search-text-with-spreadsheet-sdk.pdf

How to search text with spreadsheet sdk in VB.NET and ByteScout Data Extraction Suite

If you want to learn more then this tutorial will show how to search text with spreadsheet sdk in VB.NET

An easy to understand guide on how to search text with spreadsheet sdk in VB.NET with this source code sample. Want to search text with spreadsheet sdk in your VB.NET app? ByteScout Data Extraction Suite is designed for it. ByteScout Data Extraction Suite is the bundle that includes three SDK tools for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK.

Want to save time? You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Data Extraction Suite for search text with spreadsheet sdk below and use it in your application. Just copy and paste the code into your VB.NET application’s code and follow the instructions. Enjoy writing a code with ready-to-use sample VB.NET codes.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from our website.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports Bytescout.Spreadsheet
Imports Bytescout.Spreadsheet.BaseClasses

Class Program
	Friend Shared Sub Main(args As String())
		' Open spreadsheet from file
		Dim document As New Spreadsheet()
		document.LoadFromFile("example.xls")

		' Get first worksheet
		Dim worksheet As Worksheet = document.Workbook.Worksheets(0)

		' Find cells containing "in" substring

        Dim cell As Cell = worksheet.Find("in", False, False, False) 'case insesitive, not regexp, search forward

		While cell IsNot Nothing
			' Print found cell address and value to console
			Dim address As CellAddress = cell.GetAddress()
			Dim message As String = String.Format("({0}, {1}): {2}", address.Column, address.Row, cell.ValueAsExcelDisplays)

			Console.WriteLine(message)

			cell = worksheet.FindNext()
		End While

		document.Dispose()

		Console.WriteLine()
		Console.WriteLine("Press any key to continue.")
		Console.ReadKey(True)
	End Sub
End Class