Visual Basic

Randomize<br />
x = Int(Rnd() * 101) + 1

Dim r as New Random()<br />
x = r.Next(101) + 1

haripaddu wrote:

shortest route calculation is embedded on my project using nodes and links

Dim currentDate As Date = Now()
Dim beginDate As Date = currentDate.AddDays(-currentDate.DayOfWeek)
Dim endDate As Date = beginDate.AddDays(6)

Dim sw As New StreamWriter("filepath")
sw.Write(WebBrowser1.DocumentText)
sw.Close()

<br />
 Private Sub ImportTextFile()<br />
 Dim dt as new DataTable<br />
 GetTableSchema(dt, "SELECT * From MyTable")<br />
 Dim TextFile() as String<br />
'<br />
'Populate your TextFile() array from the text file<br />
'<br />
<br />
 Dim dr As DataRow<br />
 For i As Integer = 0 To TextFile.GetUpperBound(0) - 1<br />
   dr = dt.NewRow<br />
   dr.Item(0) = TextFile(i)<br />
   dt.Rows.Add(dr) 'Maybe Put This is a Try...Catch Block<br />
 Next<br />
End Sub<br />
<br />
<br />
Public Function GetTableSchema(ByRef dt As DataTable, ByVal SelectString As String) As Boolean<br />
		Dim path As String = Application.StartupPath<br />
		Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _<br />
		& " Data source= C:\MyDB.mdb"<br />
		Dim strSelect As String = SelectString<br />
<br />
		Dim cn As New OleDb.OleDbConnection(cnStr)<br />
		Dim cmd As New OleDb.OleDbCommand(strSelect, cn)<br />
		Dim da As New OleDb.OleDbDataAdapter(cmd)<br />
		cmd.CommandTimeout = 5<br />
		Try<br />
			cn.Open()<br />
			da.FillSchema(dt, SchemaType.Source)<br />
			Return True<br />
		Catch ex As Exception<br />
			MessageBox.Show(ex.Message)<br />
			Return False<br />
		Finally<br />
			cn.Close()<br />
		End Try<br />
	End Function

Imports System.Io
.
.
.
Dim sysFolder As String = Environment.GetFolderPath(SpecialFolder.System)
sysFolder = Path.Combine(sysFolder, "Fonts")