'make a new project, a new form, a textbox (MultiLine = True)
'and 3 commandbuttons (index 0, 1, 2) & of course the CommonDialog-control
'Put the next code in place (use Insert/File)
'Press F5
'------------------------
Private sub
Form_Load()
Me.Caption = "using Commondialog.File"
Text1.Text = ""
End Sub
'------------------------
Private sub
Command1_Click(Index as
Integer)
dim
nFile%
dim
vDummy$
select
case
Index
case
0 'open
CommonDialog1.Flags = cdlOFNCreatePrompt
CommonDialog1.Action = 1
frmFileDialog.Caption = CommonDialog1.FileName
Screen.MousePointer = vbHourglass
nFile% = FreeFile
open
CommonDialog1.FileName For input
as
#nFile
Do While Not EOF(nFile)
Line input
#nFile, vDummy
'if you want
the file split into separate words
Call SplitStringintoWords(vDummy)
'if you want
just the whole line
'Text1.Text = Text1.Text & vDummy & vbCrLf
Loop
close
#nFile
Screen.MousePointer = vbNormal
case
1 'save as
CommonDialog1.Flags = cdlOFNPathMustExist & cdlOFNOverwritePrompt
CommonDialog1.Action = 2
Screen.MousePointer = vbHourglass
nFile% = FreeFile
open
CommonDialog1.FileName For Output as
#nFile
Print #nFile, Text1.Text
close
#nFile
Screen.MousePointer = vbNormal
case
2 'exit
Unload Me
end
Select
End Sub
'------------------------
'example KATHER Produkties 1997
'using Commomdialog & Files
Option Explicit
'------------------------
Function StripString(source as
String) as
String
Const Letters$ = "abcdefghijklmnopqrstuvwxyz1234567890"
Dim p%, tmp$
tmp = source$
For p% = 1 To Len(source$)
If InStr(Letters, LCase(Mid$(source$, p%, 1))) = 0 Then
select
case
p%
case
1
tmp = Right$(source$, Len(source$) - p%)
case
Len(source$)
tmp = Left$(source$, Len(source$) - 1)
case
Else
tmp = Left$(source$, p%) & Right$(source$, Len(source$) - p%)
end
Select
end
If
Next p%
StripString = tmp
End Function
'------------------------
Sub SplitStringintoWords(bron$)
Dim c%, p%, t%
Dim TempBron$, tmp$
'change this if you have another seperator!
Const SearchFor$ = ","
'splitting the input
into words
t% = 0
TempBron$ = bron$
For c% = 1 To Len(bron$)
p% = InStr(TempBron$, SearchFor$)
If p% <> 0 Then
tmp = Left$(TempBron$, p% - 1)
If tmp <> "" Then _
Text1.Text = Text1.Text & StripString(tmp) & vbCrLf
TempBron$ = Right$(TempBron$, Len(TempBron$) - p)
c% = c% + p%
end
If
Next c%
Text1.Text = Text1.Text & TempBron$ & vbCrLf
End Sub
Return