.NET (Core and Framework)

R.Bischoff

Denn Gott hat die Menschen so sehr geliebt, daß er seinen einzigen Sohn für sie hergab. Jeder, der an ihn glaubt, wird nicht verlorengehen, sondern das ewige Leben haben

R.Bischoff

Denn Gott hat die Menschen so sehr geliebt, daß er seinen einzigen Sohn für sie hergab. Jeder, der an ihn glaubt, wird nicht verlorengehen, sondern das ewige Leben haben

---

"When the only tool you have is a hammer, a sore thumb you will have."

R.Bischoff

Denn Gott hat die Menschen so sehr geliebt, daß er seinen einzigen Sohn für sie hergab. Jeder, der an ihn glaubt, wird nicht verlorengehen, sondern das ewige Leben haben

R.Bischoff

Denn Gott hat die Menschen so sehr geliebt, daß er seinen einzigen Sohn für sie hergab. Jeder, der an ihn glaubt, wird nicht verlorengehen, sondern das ewige Leben haben

'Function to Read a File into Cache so RegEx can be Performed
Private Sub CacheFile(ByVal File As String)
	Dim ioReader As IO.StreamReader
	Dim vBuffer() As Char
	Dim hResult As Integer

	'Exit if the File does not exist
	If (File = "") Then Return
	If (Not IO.File.Exists(File)) Then Return
	If (Me._File <> File) Then Me._File = File Else Return

	Try
		'Initialize the Cache
		_Cache = Nothing : _Cache = New System.Text.StringBuilder(8096)

		'Read the File
		ReDim vBuffer(8096)
		ioReader = New IO.StreamReader(File, System.Text.Encoding.UTF8, True, 8096)
		hResult = ioReader.Read(vBuffer, 0, vBuffer.Length) 'Read More Data
		While (hResult > 0)
		     'There is a bug with a StreamReader.  Sometimes more data is read than is neccessary.
		     'If these are the Last Bytes of data, only read up to the hResult
		     If (hResult < vBuffer.Length) Then _Cache.Append(vBuffer, 0, hResult) Else _Cache.Append(vBuffer, 0, vBuffer.Length)

		     hResult = ioReader.Read(vBuffer, 0, vBuffer.Length) 'Read More Data
		End While

	Catch ex As Exception : MsgBox(ex.ToString)
	Finally
		Erase vBuffer
		If (Not IsNothing(ioReader)) Then ioReader.Close() : ioReader = Nothing
	End Try
End Sub

_Cache = Nothing : _Cache = New System.Text.StringBuilder(8096)

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September

Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!

R.Bischoff

Denn Gott hat die Menschen so sehr geliebt, daß er seinen einzigen Sohn für sie hergab. Jeder, der an ihn glaubt, wird nicht verlorengehen, sondern das ewige Leben haben