Net als in de meeste .NET-programmeer talen is er in VB een standaard FileOpenDialog beschikbaar die je kunt gebruiken om een gebruiker te laten zoeken naar een bestand.
Dim dlg As OpenFileDialog = New OpenFileDialog()
Dim res As DialogResult = dlg.ShowDialog()
If res = DialogResult.OK Then
MessageBox.Show("You picked: " & dlg.FileName)
End If
Code voor het openen van bestanden en deze bestanden uitlezen gaat als volgt (redelijk snel gevonden met Google, dit voorbeeld gaat uit van een formulier waarin je op een knop Open klikt, in plaats hiervan zal de code moeten volgen op een FileOpenDialog result):
Private Sub cmdOpen_Click()
On Error GoTo OpenError
fnum = FreeFile
Open txtFileName For Input As fnum
txt = Input$(LOF(fnum), #fnum)
Close fnum
txtFileText = txt
Exit Sub
OpenError:
MsgBox "Error " & Format$(Err.Number) & _
" opening file." & vbCrLf & _
Err.Description
Exit Sub
End Sub
Let op, je krijgt hiermee gewoon een string met de volledige content. Mocht die content uit niets meer dan platte tekst bestaan ben je redelijk klaar. Wil je er toch iets van formatting in doen, zul je dit zelf moeten parsen en verwerken.
Voor ongedaan maken zul je zelf moeten gaan bijhouden wat voor wijzigingen er zijn geweest. Hiervoor zul je een array moeten declareren. Daarbij moet je je afvragen tot hoever je iets een wijziging vind. Wil je bijvoorbeeld werkelijk iedere toetsaanslag apart gaan onthouden, of ga je, zoals Word dat doet, het invoeren van tekst clusteren tot een enkele wijziging.
Voor de overige functies zullen andere mensen moeten gaan helpen. VB heb ik maar gedeeltelijk gedaan, ben zelf meer thuis in C++ en C#.
