Using ExcelLibrary

Workbook workbook = new Workbook();
workbook.Open("Book1.xlsx");
Sheet sheet = workbook.Sheet("Sheet1");
Row row = sheet.Row(2);
Cell cell = row.Cell(3);
string text = cell.Value;

Main features

• No dependencies except .NET Framework 4.5. Easy to include in other solutions.
• Built and extendable with LINQ. Most collections in the library (e.g. Workbook.Sheets or Row.Cells) is of type IEnumerable<T>, which allows you to use LINQ queries to find exactly what you need.
• Respects the visibility of sheets, rows and columns. Set the IncludeHidden option to trueto return hidden objects.
• Well-tested. The library is being developed using principles of Test-driven development (TDD). A large set of unit tests verifies that new bugs are not introduced on code changes.
• Well-documented. A software library is only as useful as its documentation.

Another valid alternative is EPPLUS5 however it has a new license model from version 5, it’s still free to use in some cases, but will require a commercial license to be used in a commercial business.

http://www.developerfusion.com/tools/convert/csharp-to-vb/

You can reverse code from VB.NET to C# too.

🙂

Download the VB.NET/ASP.NET Associative Array Class from:

https://sourceforge.net/projects/vbnetassocarray/

You will find a tutorial inside the archive.

This is a known problem and it occurs when we declare and instantiate a Bitmap object and destruct that like in the following code:

[sourcecode language=”vb”]

‘create a bitmap object
Dim myBitmap As New Bitmap("c:myimage.jpg")

‘editing image routines, right here
‘…

‘release all Bitmap object resources
myBitmap.Dispose()

[/sourcecode]

The above code it is formally correct, however in same circumstances the .net garbage collector cannot recognize bitmap’s disposing; Dispose() method leaves the image file in an unusable state, then as MSDN said, we MUST release explicitly any reference after a Dispose() call;

with the following code, You will not encounter any problem, and after Dispose() You can edit, move, delete the image file by the filesystem functions…

[sourcecode language=”vb”]
‘create a bitmap object
Dim myBitmap As New Bitmap("c:myimage.jpg")

‘editing image routines, right here
‘…

‘release image reference
While myBitmap IsNot Nothing
myBitmap.Dispose()
myBitmap = Nothing ‘<– tells .net garbage collector to release resources
End While

[/sourcecode]

Happy image editing! 🙂

Normal black shadow to the bottom right corner
Red shadow to the bottom right corner
Shadow to the bottom left corner
Shadow to the top left corner
Shadow to the top right corner
Shadow with Opacity: “128”
Shadow with Opacity: “128” and Softness: “8”
Shadow with Opacity: “128”, Softness: “8” and Distance: “10”
Shadow without rounded edges

Copy and paste my following vb.net code in your application. it does all the hard job…

[sourcecode language=”vb”]

‘ShadowDirection:
‘ TOP_RIGHT = 1
‘ BOTTOM_RIGHT = 2
‘ BOTTOM_LEFT = 3
‘ TOP_LEFT = 4
‘ShadowOpacity: from 0 to 255
‘ShadowSoftness: from 1 to 30
‘ShadowDistance: from 1 to 50
‘ShadowRoundedEdges: True or False

‘Note:
‘If You set "transparent" as background color, this is replaced with white color.

Public Enum ShadowDirections As Integer
TOP_RIGHT = 1
BOTTOM_RIGHT = 2
BOTTOM_LEFT = 3
TOP_LEFT = 4
End Enum

<STAThread()> _
Public Sub DropShadow(ByRef SourceImage As Drawing.Bitmap, _
ByVal ShadowColor As Drawing.Color, _
ByVal BackgroundColor As Drawing.Color, _
Optional ByVal ShadowDirection As ShadowDirections = _
ShadowDirections.BOTTOM_RIGHT, _
Optional ByVal ShadowOpacity As Integer = 190, _
Optional ByVal ShadowSoftness As Integer = 4, _
Optional ByVal ShadowDistance As Integer = 5, _
Optional ByVal ShadowRoundedEdges As Boolean = True)
Dim ImgTarget As Bitmap = Nothing
Dim ImgShadow As Bitmap = Nothing
Dim g As Graphics = Nothing
Try
If SourceImage IsNot Nothing Then
If ShadowOpacity < 0 Then
ShadowOpacity = 0
ElseIf ShadowOpacity > 255 Then
ShadowOpacity = 255
End If
If ShadowSoftness < 1 Then
ShadowSoftness = 1
ElseIf ShadowSoftness > 30 Then
ShadowSoftness = 30
End If
If ShadowDistance < 1 Then
ShadowDistance = 1
ElseIf ShadowDistance > 50 Then
ShadowDistance = 50
End If
If ShadowColor = Color.Transparent Then
ShadowColor = Color.Black
End If
If BackgroundColor = Color.Transparent Then
BackgroundColor = Color.White
End If

‘get shadow
Dim shWidth As Integer = CInt(SourceImage.Width / ShadowSoftness)
Dim shHeight As Integer = CInt(SourceImage.Height / ShadowSoftness)
ImgShadow = New Bitmap(shWidth, shHeight)
g = Graphics.FromImage(ImgShadow)
g.Clear(Color.Transparent)
g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.SmoothingMode = SmoothingMode.AntiAlias
Dim sre As Integer = 0
If ShadowRoundedEdges = True Then sre = 1
g.FillRectangle(New SolidBrush(Color.FromArgb(ShadowOpacity, ShadowColor)), _
sre, sre, shWidth, shHeight)
g.Dispose()

‘draw shadow
Dim d_shWidth As Integer = SourceImage.Width + ShadowDistance
Dim d_shHeight As Integer = SourceImage.Height + ShadowDistance
ImgTarget = New Bitmap(d_shWidth, d_shHeight)
g = Graphics.FromImage(ImgTarget)
g.Clear(BackgroundColor)
g.InterpolationMode = InterpolationMode.HighQualityBicubic
g.SmoothingMode = SmoothingMode.AntiAlias
g.DrawImage(ImgShadow, New Rectangle(0, 0, d_shWidth, d_shHeight), _
0, 0, ImgShadow.Width, ImgShadow.Height, GraphicsUnit.Pixel)
Select Case ShadowDirection
Case ShadowDirections.BOTTOM_RIGHT
g.DrawImage(SourceImage, _
New Rectangle(0, 0, SourceImage.Width,SourceImage.Height), _
0, 0, SourceImage.Width, SourceImage.Height, GraphicsUnit.Pixel)
Case ShadowDirections.BOTTOM_LEFT
g.Dispose()
ImgTarget.RotateFlip(RotateFlipType.RotateNoneFlipX)
g = Graphics.FromImage(ImgTarget)
g.DrawImage(SourceImage, _
New Rectangle(ShadowDistance, 0, SourceImage.Width, SourceImage.Height), _
0, 0, SourceImage.Width, SourceImage.Height, GraphicsUnit.Pixel)
Case ShadowDirections.TOP_LEFT
g.Dispose()
ImgTarget.RotateFlip(RotateFlipType.Rotate180FlipNone)
g = Graphics.FromImage(ImgTarget)
g.DrawImage(SourceImage, _
New Rectangle(ShadowDistance, ShadowDistance, _
SourceImage.Width, SourceImage.Height), _
0, 0, SourceImage.Width, SourceImage.Height, GraphicsUnit.Pixel)
Case ShadowDirections.TOP_RIGHT
g.Dispose()
ImgTarget.RotateFlip(RotateFlipType.RotateNoneFlipY)
g = Graphics.FromImage(ImgTarget)
g.DrawImage(SourceImage, _
New Rectangle(0, ShadowDistance, SourceImage.Width, SourceImage.Height), _
0, 0, SourceImage.Width, SourceImage.Height, GraphicsUnit.Pixel)
End Select

g.Dispose()
g = Nothing
ImgShadow.Dispose()
ImgShadow = Nothing

SourceImage = New Bitmap(ImgTarget)
ImgTarget.Dispose()
ImgTarget = Nothing
End If

Catch ex As Exception
If g IsNot Nothing Then
g.Dispose()
g = Nothing
End If
If ImgShadow IsNot Nothing Then
ImgShadow.Dispose()
ImgShadow = Nothing
End If
If ImgTarget IsNot Nothing Then
ImgTarget.Dispose()
ImgTarget = Nothing
End If
End Try

End Sub
[/sourcecode]

Besides, You can use this sub as in the following example (take a look at the comments…) :

[sourcecode language=”vb”]
Dim file_input As String = "c:myfile.jpg"
Dim file_output As String = "c:myfilewithshadow.jpg"

‘get bitmap…
Dim sourceImage As System.Drawing.Image = System.Drawing.Image.FromFile(file_input)
Dim format As System.Drawing.Imaging.ImageFormat = sourceImage.RawFormat
Dim bmpOut As System.Drawing.Bitmap = New Bitmap(sourceImage)

‘release any reference to the original file…
While sourceImage IsNot Nothing
sourceImage.Dispose()
sourceImage = Nothing
End While

‘drop black shadow on new bitmap with white background…
DropShadow(bmpOut, Color.Black, Color.White)

‘save file…
If bmpOut IsNot Nothing Then
bmpOut.Save(file_output, format)
bmpOut.Dispose()
bmpOut = Nothing
End If
[/sourcecode]

PS:
The subroutine executes only in “STAThread” so it’s thread-safe drawing.

Happy coding…

Max 🙂

besides, if u’ll need to convert each german umlaut to the corresponding two-letter chars, u can also use the ReplaceGermanUmlauts() method…

[sourcecode language=”vb”]
Public Shared Function StripAccentMarks(ByVal input_string As String) As String
Dim n_s As String = input_string.Normalize(NormalizationForm.FormD)
Dim s As New StringBuilder()
Dim c As Char
For i As Integer = 0 To n_s.Length – 1
c = n_s(i)
If System.Globalization.CharUnicodeInfo.GetUnicodeCategory(c) <> System.Globalization.UnicodeCategory.NonSpacingMark Then
s.Append(c)
End If
Next
Return s.ToString
End Function
[/sourcecode]
[sourcecode language=”vb”]
Public Shared Function ReplaceGermanUmlauts(ByVal input_string As String) As String
Dim s As String = input_string</pre>
s = s.Replace("ä", "ae")
s = s.Replace("ö", "oe")
s = s.Replace("ü", "ue")
s = s.Replace("Ä", "Ae")
s = s.Replace("Ö", "Oe")
s = s.Replace("Ü", "Ue")
s = s.Replace("ß", "ss")
Return s
End Function
[/sourcecode]

Have a nice day!

Max 😀

Adding resource files:

First of all, add a folder named “resources/” in your project.

Inside this folder, right click then from the context menu choose “add an element” -> “new element” -> select “Resource File (resx)” -> create a file named “Resources.en-US.resx”

In the “Resources.en-US.resx” file, You have to write all the strings used by your application.
It’s important that your language resource file is named as “Resources.{Language Code Name}.resx”, so VS can reach automatically this file.

The rsx file is just a list of Key-Value items, then You have to give a key-name for each string value; don’t use spaces in key-names, otherwise it’s best using “_” symbol.

Insert only two test lines in your new rsx file as the following…

KEY – VALUE:

TEST_STRING1 us1
TEST_STRING2 us2


Then, compile your project and if it’s all right, You will find a new folder in “binRelease” named “en-US” created by VS, with a file “{your project name}.resources.dll”; this file contains all the strings for the english-US language (“en-US”) and right now You can access them programmatically.

If You want add a new language to your application, just copy the rsx file and rename it in “Resources.{Language Code Name}.resx” where the language code name is one of those listed at http://msdn.microsoft.com/en-us/library/ee825488(v=cs.20).aspx.

Step 2, how to programmatically select the language and strings:

Add a vb class “Resources.vb” in the “resources” folder with the following code

[sourcecode language=”vb”]
Public Class Resources

Public Shared Function GetValue(ByVal name As ResourceName) As String
Return My.Resources.ResourceManager.GetObject(name.ToString)
End Function

Public Shared Property Language() As CultureCodeName
Get
Dim c As CultureCodeName = Nothing
Dim cs As String = System.Threading.Thread.CurrentThread.CurrentUICulture.ToString().Replace(New Char() {"-"c}, New Char() {"_"c})
For Each cc As CultureCodeName In [Enum].GetValues(GetType(CultureCodeName))
If cs = cc.ToString Then
c = cc
Exit For
End If
Next
Return c
End Get
Set(ByVal cultureCodeName As CultureCodeName)
Dim c As String = cultureCodeName.ToString.Replace(New Char() {"_"c}, New Char() {"-"c})
System.Threading.Thread.CurrentThread.CurrentUICulture = _
System.Globalization.CultureInfo.GetCultureInfo(c)
End Set
End Property

End Class
[/sourcecode]

then, add a vb “code file” named “CultureCodeNames.vb” in “resources” folder with the following code

[sourcecode language=”vb”]

Public Enum CultureCodeName

en_US
‘if You want add a new language, after creating the rsx file,
‘also add here the code name, with "-" replaced in "_"

End Enum

[/sourcecode]

Finally, add the last vb codefile “ResourceNames.vb” in “resources” folder with this code

[sourcecode language=”vb”]

Public Enum ResourceName

‘add here all the key names in the RSX file
TEST_STRING1
TEST_STRING2

End Enum

[/sourcecode]

The configuration is finished.
In your project, add a button to a form, then add the following vb code in the codebehind to learn how to access to different language RSX files and their strings inside.

[sourcecode language=”vb”]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

‘Select a language for your app
Resources.Language = CultureCodeName.en_US

‘show test string 1
MessageBox.Show(Resources.GetValue(ResourceName.TEST_STRING1))

‘show test string 2
MessageBox.Show(Resources.GetValue(ResourceName.TEST_STRING2))

‘show the current language code
MessageBox.Show(Resources.Language.ToString)

End Sub
[/sourcecode]

It’s very useful because when you will be writing the code, VS automatically suggests the strings that you can use, saving a lot of time and by selecting a language with “Resources.Language”, You can translate your application strings on the fly.

Have a nice day!

Max

Add the following code to your project:

[sourcecode language=”csharp”]
// IsNumeric Function
static bool IsNumeric(object Expression)
{
// Variable to collect the Return value of the TryParse method.
bool isNum;

// Define variable to collect out parameter of the TryParse method. If the conversion fails, the out parameter is zero.
double retNum;

// The TryParse method converts a string in a specified style and culture-specific format to its double-precision floating point number equivalent.
// The TryParse method does not generate an exception if the conversion fails. If the conversion passes, True is returned. If it does not, False is returned.
isNum = Double.TryParse(Convert.ToString(Expression), System.Globalization.NumberStyles.Any, System.Globalization.NumberFormatInfo.InvariantInfo, out retNum );
return isNum;
}
[/sourcecode]

Have a nice day!

Max 🙂

Enjoy! 🙂

[sourcecode language=”vb”]

‘ MySqlHelper VB.NET class
‘ http://www.maxvergelli.com/

‘ Copyright (c) 2016 Max Vergelli

‘ Vers. 2.1.0
‘ Date: 21/03/2016

‘ Description:
‘ .NET helper class to easly execute SQL commands against a MySQL database,
‘ execute stored procedures, get or programmatically update DataSet objects,
‘ and convert to and from MySQL datetime types.
‘
‘ Before use this class, You have to install and import in your project the
‘ last MySQL Connector/NET at
‘ http://dev.mysql.com/doc/refman/5.0/es/connector-net.html

‘ Permission is hereby granted, free of charge, to any person obtaining a copy
‘ of this software and associated documentation files (the "Software"), to deal
‘ in the Software without restriction, including without limitation the rights
‘ to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
‘ copies of the Software, and to permit persons to whom the Software is
‘ furnished to do so, subject to the following conditions:

‘ The above copyright notice and this permission notice shall be included in
‘ all copies or substantial portions of the Software.

‘ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
‘ IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
‘ FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
‘ AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
‘ LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
‘ OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
‘ THE SOFTWARE.

Imports System.Data
Imports System.Globalization
Imports MySql.Data.MySqlClient

Public Class MySqlHelper

Private _cnx_string As String = Nothing
Private _cnx_obj As MySqlConnection = Nothing

Private Function IsConnectionAlive() As Boolean
Dim is_alive As Boolean = False
If _cnx_obj IsNot Nothing AndAlso _cnx_obj.State <> ConnectionState.Closed Then
is_alive = True
End If
Return is_alive
End Function

Private Sub CloseConnection()

Try

If IsConnectionAlive() Then
_cnx_obj.Close()
End If
_cnx_obj = Nothing

Catch ex As Exception

_cnx_obj = Nothing

End Try

End Sub

Public ReadOnly Property ConnectionString() As String
Get
Return _cnx_string
End Get
End Property

Public Function IsOpen() As Boolean
Return IsConnectionAlive()
End Function

Public Sub New(Optional ByVal db_connection_string As String = "", _
Optional ByVal open_connection As Boolean = False)

_cnx_string = db_connection_string

If _cnx_string.Length > 0 And open_connection = True Then

Dim is_open As Boolean = Open(_cnx_string)

End If

End Sub

Public Function Open(ByVal db_connection_string As String) As Boolean

Dim success As Boolean = False
Try

If IsConnectionAlive() = False Then

If db_connection_string.Length > 0 AndAlso _cnx_obj Is Nothing Then

_cnx_string = db_connection_string
_cnx_obj = New MySqlConnection
_cnx_obj.ConnectionString = _cnx_string
_cnx_obj.Open()
success = True

End If

End If

Catch ex As Exception

CloseConnection()
success = False

End Try
Return success

End Function

Public Sub Close()

CloseConnection()

End Sub

Protected Overrides Sub Finalize()
CloseConnection()
End Sub

‘get a DataRow object with the first row of a SQL select command
Public Function SelectFirstRow(ByVal sql_select As String) As DataRow

Dim ds As DataSet = SelectRows(sql_select)
If ds Is Nothing Then
Return Nothing
End If
If ds.Tables.Count < 1 Then
Return Nothing
End If
If ds.Tables(0).Rows.Count < 1 Then
Return Nothing
End If
Return ds.Tables(0).Rows(0)

End Function

‘get a DataSet object with the rows of a SQL select command
Public Function SelectRows(ByVal sql_select As String) As DataSet

Dim ds As DataSet = Nothing
Try

If IsConnectionAlive() Then

Dim cmd As MySqlCommand = New MySqlCommand(sql_select, _cnx_obj)

Dim da As MySqlDataAdapter = New MySqlDataAdapter
da.SelectCommand = cmd

ds = New DataSet
da.Fill(ds)

da = Nothing

End If

Catch ex As Exception

ds = Nothing

End Try
Return ds

End Function

‘Execute a MySql Stored Procedure
Public Overloads Function ExecuteStoredProcedure(ByVal stored_procedure_name As String) As DataSet

Return ExecuteProcedure(stored_procedure_name)

End Function

‘Execute a MySql Stored Procedure with parameters

‘How to create the parameters
‘Dim param As MySqlParameter = New MySqlParameter("?v_id", MySqlDbType.Int32)
‘param.Value = 1
‘param.Direction = ParameterDirection.Input

Public Overloads Function ExecuteStoredProcedure(ByVal stored_procedure_name As String, _
ByVal ParamArray parameters As MySqlParameter()) As DataSet

Return ExecuteProcedure(stored_procedure_name, parameters)

End Function

Private Function ExecuteProcedure(ByVal procedure_name As String, _
ByVal ParamArray sql_parameters As MySqlParameter()) As DataSet

Dim ds As DataSet = Nothing
Try
If IsConnectionAlive() Then

Dim cmd As New MySqlCommand(procedure_name, _cnx_obj)

cmd.CommandType = CommandType.StoredProcedure

If sql_parameters IsNot Nothing Then
For Each p As MySqlParameter In sql_parameters
cmd.Parameters.Add(p)
Next
End If

Dim da As MySqlDataAdapter = New MySqlDataAdapter
da.SelectCommand = cmd
ds = New DataSet
da.Fill(ds)
da = Nothing

cmd.Parameters.Clear()

End If
Catch ex As Exception

ds = Nothing

End Try

Return ds

End Function

‘UpdateRows() function automatically generates single-table commands used to reconcile changes made to a DataSet
‘with the associated table in the MySQL database.
‘The function gets
‘ – the SQL SELECT used to populate the dataset
‘ – the updated dataset
‘ – the table name that must be updated in the database
‘Note:
‘The SQL SELECT must also return at least one primary key or unique column, otherwise an exception is generated;

Public Function UpdateRows(ByVal sql_select As String, ByRef input_dataset As DataSet, ByVal table_name As String) As Boolean

Dim success As Boolean = False
Try

If IsConnectionAlive() Then

Dim data_adapter As New MySqlDataAdapter(sql_select, _cnx_obj)
Dim cmd_builder As New MySqlCommandBuilder(data_adapter)
data_adapter.Update(input_dataset, table_name)
success = True

End If

Catch ex As Exception

success = False

End Try

Return success

End Function

‘To use a MySqlDataReader,
‘You have to use OpenReader() and CloseReader() functions like in the following example:
‘
‘ Public Sub ReadMyData(ByVal connection_string As String)
‘
‘ Dim mysql As MySqlHelper = New MySqlHelper()
‘ mysql.Open(connection_string)
‘
‘ Dim sql As String = "SELECT OrderID, CustomerID FROM Orders"
‘ Dim reader As MySqlDataReader = Nothing
‘
‘ mysql.OpenReader(reader, sql)
‘ While reader.Read()
‘ Console.WriteLine((reader.GetInt32(0) & ", " & reader.GetString(1)))
‘ End While
‘ mysql.CloseReader(reader)
‘
‘ mysql.Close()
‘
‘ End Sub

Public Sub OpenReader(ByRef reader As MySqlDataReader, ByVal sql_select As String)

Try
If IsConnectionAlive() Then

Dim cmd As New MySqlCommand(sql_select, _cnx_obj)
reader = cmd.ExecuteReader()

End If

Catch ex As Exception

reader = Nothing

End Try

End Sub

Public Sub CloseReader(ByRef reader As MySqlDataReader)

Try

reader.Close()

Catch ex As Exception

End Try

End Sub

‘Execute SQL command and return the number of records affected
Public Function Execute(ByVal sql_command As String) As Long

Dim affected_rows As Long = 0

Try
If IsConnectionAlive() Then

Dim cmd As New MySqlCommand(sql_command, _cnx_obj)

affected_rows = cmd.ExecuteNonQuery()

End If

Catch ex As Exception

affected_rows = 0

End Try

Return affected_rows

End Function

‘GetSingleValue() function executes the query, and returns the value of the first column of the first row in the
‘result set returned by the query. Extra columns or rows are ignored.
‘Note:
‘Use the GetSingleValue() method to retrieve a single value (for example, an aggregate value)
‘from a database, like "select count(*) from region"

Public Overloads Function GetSingleValue(ByVal sql_select As String) As Object

Return ExecuteScalar(sql_select, DirectCast(Nothing, MySqlParameter()))

End Function

Public Overloads Function GetSingleValue(ByVal sql_select As String, ByVal ParamArray sql_parameters As MySqlParameter()) As Object

Return ExecuteScalar(sql_select, sql_parameters)

End Function

‘ExecuteScalar: Executes the query, and returns the value (integer/string) of the first column of the first row in the result set returned by the query. Extra columns or rows are ignored.
Private Function ExecuteScalar(ByVal sql_select As String, ByVal ParamArray sql_parameters As MySqlParameter()) As Object

Dim row As Object = Nothing
Try
If IsConnectionAlive() Then

Dim cmd As New MySqlCommand(sql_select, _cnx_obj)
If sql_parameters IsNot Nothing Then
For Each p As MySqlParameter In sql_parameters
cmd.Parameters.Add(p)
Next
End If
row = cmd.ExecuteScalar()
cmd.Parameters.Clear()

End If
Catch ex As Exception

row = Nothing

End Try

Return row

End Function

’25/1/12 -> 2012-01-25
Public Overloads Function ConvertToMySqlDate(ByVal input_date As Date) As String

Return input_date.ToString("yyyy-MM-dd")

End Function

’25/1/12 -> 2012-01-25
Public Overloads Function ConvertToMySqlDate(ByVal input_date As String) As String

Return ConvertDateTime(input_date, DATETIME_TYPE.MYSQL, True)

End Function

’25/1/12 13:00 -> 2012-01-25 13:00:00
Public Overloads Function ConvertToMySqlDateTime(ByVal input_datetime As DateTime) As String

Return input_datetime.ToString("yyyy-MM-dd HH:mm:ss")

End Function

’25/1/12 13:00 -> 2012-01-25 13:00:00
Public Overloads Function ConvertToMySqlDateTime(ByVal input_datetime As String) As String

Return ConvertDateTime(input_datetime, DATETIME_TYPE.MYSQL)

End Function

‘2012-01-25 -> 25-01-2012
Public Overloads Function ConvertToDate(ByVal mysql_date As Date) As String

Return mysql_date.ToString("dd-MM-yyyy")

End Function

‘2012-01-25 -> 25-01-2012
Public Overloads Function ConvertToDate(ByVal mysql_date As String) As String

Return ConvertDateTime(mysql_date, DATETIME_TYPE.SYSTEM, True)

End Function

‘2012-01-25 13:00:00 -> 25-01-2012 13:00:00
Public Overloads Function ConvertToDateTime(ByVal mysql_datetime As DateTime) As String

Return mysql_datetime.ToString("dd-MM-yyyy HH:mm:ss")

End Function

‘2012-01-25 13:00:00 -> 25-01-2012 13:00:00
Public Overloads Function ConvertToDateTime(ByVal mysql_datetime As String) As String

Return ConvertDateTime(mysql_datetime, DATETIME_TYPE.SYSTEM)

End Function

Private Enum DATETIME_TYPE As Integer
SYSTEM = 0
MYSQL = 1
End Enum

Private Function ConvertDateTime(ByVal input_datetime As String, ByVal output_datetime_type As DATETIME_TYPE, _
Optional ByVal get_only_date As Boolean = False) As String

‘The function returns a datetime in a well-formatted string for regular or MySQL use.
‘You have to insert a datetime string formatted by {,/,-,.,:} symbols.
‘Besides, for the input date, You need to specify "day, month and year";
‘for the time, only "hour and minutes", "seconds" doesn’t matter.

‘The function returns Nothing if an error is encountered.

‘You can select one of the following datetime types as output:
‘SYSTEM: "(2 digits day)-(2 digits month)-(4 digits year) hours:minutes:seconds"
‘MYSQL: "(4 digits year)-(2 digits month)-(2 digits day) hours:minutes:seconds"

‘examples:
‘for a regular datetime in input and
‘a MySql datetime as output, You ‘ll get…

’25-1-08 -> 2008-01-25 00:00:00
’25/1/08 -> 2008-01-25 00:00:00
’25/1/08 12:00 -> 2008-01-25 12:00:00
’25-1-08 12:00 -> 2008-01-25 12:00:00
‘25.1.08 12:00 -> 2008-01-25 12:00:00
‘25.1.08 12.00 -> 2008-01-25 12:00:00
‘25.1.08 12.00.23 -> 2008-01-25 12:00:23

Dim dt_out As String = Nothing
Dim dt_type As String = ""
If output_datetime_type = DATETIME_TYPE.MYSQL Then
dt_type = "yyyy-MM-dd HH’:’mm’:’ss"
Else
dt_type = "dd-MM-yyyy HH’:’mm’:’ss"
End If
Try
If input_datetime.IndexOf(".", 0, CompareMethod.Binary) > 0 Then
Dim tmp() As String = input_datetime.Split(" ")
If tmp.GetUpperBound(0) > 0 Then
input_datetime = tmp(0).Replace(".", "-") & " " & tmp(1).Replace(".", ":")
End If
End If
Dim myDTFI As DateTimeFormatInfo = New CultureInfo("it-IT", False).DateTimeFormat
myDTFI.FullDateTimePattern = "dd-MM-yyyy HH’:’mm’:’ss"
myDTFI.DateSeparator = "-"
myDTFI.TimeSeparator = ":"
Dim myDT As New DateTime
myDT = System.Convert.ToDateTime(input_datetime, myDTFI)
dt_out = Format(myDT, dt_type)
myDT = Nothing
myDTFI = Nothing
If get_only_date = True Then
Dim s() As String = dt_out.Split(" ")
If s.GetUpperBound(0) > 0 Then
dt_out = s(0)
End If
End If
Catch ex As Exception
dt_out = Nothing
End Try
Return dt_out

End Function

End Class

[/sourcecode]

Max 🙂

[sourcecode language=”vb”]
Public Function GetTagContent(ByRef html As String, ByVal start_tag As String, ByVal end_tag As String) As String
Dim s As String = ""
Dim content() As String = html.Split(start_tag)
If content.Count > 1 Then
Dim parts() As String = content(1).Split(end_tag)
If parts.Count > 1 Then
s = parts(0)
End If
End If
Return s
End Function
[/sourcecode]