Visual Basic

<br />
Dim fs1 As New FileStream("C:\keysdig2.dbf", FileMode.Open, FileAccess.Read)<br />
		Dim sr1 As New BinaryReader(fs1)<br />
		Dim strMyNum As String<br />
		Dim dt As DataTable<br />
		Dim dr As DataRow<br />
		Do While sr1.PeekChar <> -1<br />
			dr = dt.NewRow<br />
			If sr1.PeekChar = "K" Then<br />
				'Read 8 chars to get to the first number of interest<br />
				For i As Integer = 0 To 7<br />
					sr1.ReadChar()<br />
				Next<br />
				'First Number (10 Chars)<br />
				For j As Integer = 0 To 9<br />
					strMyNum += sr1.ReadChar.ToString<br />
				Next<br />
				dr.Item(0) = strMyNum			 'Place in first Col of Datarow<br />
				strMyNum = ""<br />
				'Second Number (8 Chars)<br />
				For k As Integer = 0 To 7<br />
					strMyNum += sr1.ReadChar.ToString<br />
				Next<br />
				dr.Item(1) = strMyNum			 'Place in Second Col of Datarow<br />
				strMyNum = ""<br />
<br />
				dt.Rows.Add(dr)<br />
			End If<br />
		Loop<br />

Kedar V wrote:

well every thing was working fine, but after a week during which i've
not edited/used my code !!! and now everything is in mess...