33 lines
722 B
Text
33 lines
722 B
Text
|
' Gambas module file
|
||
|
|
|
||
|
|
Private Const ROOT As String = "~/gambas/3.0/trunk/examples/examples/Drawing/Painting/"
|
||
|
|
|
||
|
|
Public Sub Main()
|
||
|
|
|
||
|
|
Dim hFile As File
|
||
|
|
Dim sLine As String
|
||
|
|
Dim sName As String
|
||
|
|
Dim sSource As String
|
||
|
|
|
||
|
|
hFile = Open ROOT &/ ".src/FMain.class"
|
||
|
|
While Not Eof(hFile)
|
||
|
|
Line Input #hFile, sLine
|
||
|
|
If Trim(sLine) Like "Public Sub Example*" Then
|
||
|
|
sName = Scan(sLine, "Public Sub *()")[0]
|
||
|
|
sSource = sLine & "\n"
|
||
|
|
Continue
|
||
|
|
Else If sName Then
|
||
|
|
If Trim(sLine) = "End" Then
|
||
|
|
sSource &= sLine & "\n"
|
||
|
|
File.Save(ROOT &/ sName, sSource)
|
||
|
|
Print sName
|
||
|
|
sName = ""
|
||
|
|
Else
|
||
|
|
sSource &= sLine & "\n"
|
||
|
|
Endif
|
||
|
|
Endif
|
||
|
|
Wend
|
||
|
|
Close hFile
|
||
|
|
|
||
|
|
End
|