home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / __When_VB_179073982004.psc / frmMain.frm < prev    next >
Text File  |  2004-09-08  |  9KB  |  248 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMain 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   " Simple demo to   'clsParseTextFile.clc'"
  6.    ClientHeight    =   3660
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5175
  10.    Icon            =   "frmMain.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3660
  15.    ScaleWidth      =   5175
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.CommandButton btnGo 
  18.       BackColor       =   &H00FAC5AD&
  19.       Caption         =   "Do the job and output to debug window !"
  20.       Default         =   -1  'True
  21.       BeginProperty Font 
  22.          Name            =   "MS Sans Serif"
  23.          Size            =   9.75
  24.          Charset         =   0
  25.          Weight          =   700
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       Height          =   1005
  31.       Left            =   195
  32.       MaskColor       =   &H00FFFFFF&
  33.       Picture         =   "frmMain.frx":08CA
  34.       Style           =   1  'Graphical
  35.       TabIndex        =   0
  36.       Top             =   390
  37.       Width           =   4770
  38.    End
  39.    Begin VB.Label lblUpdate 
  40.       Alignment       =   1  'Right Justify
  41.       BackStyle       =   0  'Transparent
  42.       Caption         =   "Update 2"
  43.       Height          =   255
  44.       Left            =   4275
  45.       TabIndex        =   5
  46.       Top             =   3225
  47.       Width           =   720
  48.    End
  49.    Begin VB.Label lblHeader 
  50.       BackStyle       =   0  'Transparent
  51.       Caption         =   "If you like doing things with fine class ..."
  52.       BeginProperty Font 
  53.          Name            =   "Tahoma"
  54.          Size            =   9.75
  55.          Charset         =   0
  56.          Weight          =   700
  57.          Underline       =   0   'False
  58.          Italic          =   -1  'True
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   270
  62.       Left            =   225
  63.       TabIndex        =   4
  64.       Top             =   75
  65.       Width           =   3915
  66.    End
  67.    Begin VB.Label lblDesc 
  68.       Alignment       =   2  'Center
  69.       BackStyle       =   0  'Transparent
  70.       Caption         =   $"frmMain.frx":1194
  71.       Height          =   660
  72.       Index           =   1
  73.       Left            =   420
  74.       TabIndex        =   3
  75.       Top             =   1515
  76.       Width           =   4260
  77.    End
  78.    Begin VB.Image imgLogo 
  79.       Height          =   765
  80.       Left            =   1260
  81.       Picture         =   "frmMain.frx":1237
  82.       Top             =   2760
  83.       Width           =   2550
  84.    End
  85.    Begin VB.Label lblDesc 
  86.       BackStyle       =   0  'Transparent
  87.       Caption         =   "Created by Light Templer (LiTe) in June '04."
  88.       Height          =   285
  89.       Index           =   0
  90.       Left            =   1050
  91.       TabIndex        =   1
  92.       Top             =   2385
  93.       Width           =   3075
  94.    End
  95.    Begin VB.Label lblAuthor 
  96.       BackStyle       =   0  'Transparent
  97.       Caption         =   "Light Templer"
  98.       ForeColor       =   &H0080FF80&
  99.       Height          =   225
  100.       Left            =   1875
  101.       TabIndex        =   2
  102.       Top             =   2370
  103.       Width           =   990
  104.    End
  105.    Begin VB.Shape shpBorder1 
  106.       Height          =   330
  107.       Left            =   825
  108.       Shape           =   4  'Rounded Rectangle
  109.       Top             =   2325
  110.       Width           =   3480
  111.    End
  112.    Begin VB.Shape shpBckGrnd1 
  113.       BorderColor     =   &H00FAC5AD&
  114.       BorderStyle     =   0  'Transparent
  115.       FillColor       =   &H00FAC5AD&
  116.       FillStyle       =   0  'Solid
  117.       Height          =   195
  118.       Left            =   825
  119.       Top             =   2400
  120.       Width           =   3480
  121.    End
  122. End
  123. Attribute VB_Name = "frmMain"
  124. Attribute VB_GlobalNameSpace = False
  125. Attribute VB_Creatable = False
  126. Attribute VB_PredeclaredId = True
  127. Attribute VB_Exposed = False
  128. Option Explicit
  129.  
  130. Private WithEvents oTEXT As clsParseTextFile
  131. Attribute oTEXT.VB_VarHelpID = -1
  132. '
  133. '
  134. '
  135.  
  136. Private Sub btnGo_Click()
  137.     
  138.     Dim sPathFilename   As String
  139.     
  140.     Set oTEXT = New clsParseTextFile
  141.     With oTEXT
  142.         
  143.         .IgnoreEmptyLines = True    ' we don't need empty lines
  144.         .IgnoreLinesWith = "'"      ' we don't want comment lines
  145.         
  146.         
  147.         ' Example for CAT: Show ALL lines
  148.         Debug.Print vbCrLf + "=== CAT " + String$(40, "=") + vbCrLf + vbCrLf
  149.         If .CAT("D:\Projekte\ALL CLASS\clsParseTextFile\testfile.txt") = True Then
  150.             MsgBox "Ready / Success!", vbInformation, " CAT"
  151.         Else
  152.             MsgBox "Ready / Error!" + vbCrLf + .LastErrMsg, vbExclamation, " CAT"
  153.         End If
  154.         Debug.Print vbCrLf
  155.         Debug.Print "Total lines:  " & .LinesTotal & ",  handled lines:  " & .LinesToHandle & vbCrLf & vbCrLf
  156.  
  157.  
  158.  
  159.         ' Example for HEAD: Show 10 first line lines only
  160.         Debug.Print vbCrLf + "=== HEAD " + String$(40, "=") + vbCrLf + vbCrLf
  161.         If .HEAD(10, "D:\Projekte\ALL CLASS\clsParseTextFile\testfile.txt") = True Then
  162.             MsgBox "Ready / Success!", vbInformation, " HEAD"
  163.         Else
  164.             MsgBox "Ready / Error!" + vbCrLf + .LastErrMsg, vbExclamation, " HEAD"
  165.         End If
  166.         Debug.Print "Total lines:  " & .LinesTotal & ",  handled lines:  " & .LinesToHandle & vbCrLf & vbCrLf
  167.  
  168.  
  169.  
  170.         ' Example for TAIL: Show last 8 lines only
  171.         Debug.Print vbCrLf + "=== TAIL " + String$(40, "=") + vbCrLf + vbCrLf
  172.         If .TAIL(8, "D:\Projekte\ALL CLASS\clsParseTextFile\testfile.txt") = True Then
  173.             MsgBox "Ready / Success!", vbInformation, " TAIL"
  174.         Else
  175.             MsgBox "Ready / Error!" + vbCrLf + .LastErrMsg, vbExclamation, " TAIL"
  176.         End If
  177.         Debug.Print "Total lines:  " & .LinesTotal & ",  handled lines:  " & .LinesToHandle & vbCrLf & vbCrLf
  178.  
  179.  
  180.  
  181.         ' Example for FILTER: Show matching lines only (We use CAT here, but works with all commands!)
  182.         Debug.Print vbCrLf + "=== FILTER " + String$(40, "=") + vbCrLf + vbCrLf
  183.         .Filter = "*Public*"
  184.         If .CAT("D:\Projekte\ALL CLASS\clsParseTextFile\testfile.txt") = True Then
  185.             MsgBox "Ready / Success!", vbInformation, " FILTER"
  186.         Else
  187.             MsgBox "Ready / Error!" + vbCrLf + .LastErrMsg, vbExclamation, " FILTER"
  188.         End If
  189.         Debug.Print "Total lines:  " & .LinesTotal & ",  handled lines:  " & .LinesToHandle & vbCrLf & vbCrLf
  190.         
  191.         
  192.         
  193.         ' Example for GetTemp:  Get a new, unique filename in Windows temp dir
  194.         Debug.Print vbCrLf + "=== GetTemp " + String$(40, "=") + vbCrLf
  195.         sPathFilename = .GetTemp()
  196.         ' sPathFilename = .GetTemp("C:\temp", "!MyTemp~")       ' with all parameters used
  197.         If sPathFilename <> "" Then
  198.             MsgBox "Ready / Success!" + vbCrLf + vbCrLf + sPathFilename, vbInformation, " GetTemp"
  199.         Else
  200.             MsgBox "Ready / Error!" + vbCrLf + .LastErrMsg, vbExclamation, " GetTemp"
  201.         End If
  202.         Debug.Print .GetTemp
  203.         
  204.         
  205.         
  206.         ' Example for Append:  Append a few lines to a file
  207.         Debug.Print vbCrLf + "=== Append " + String$(40, "=") + vbCrLf
  208.         If .Append("This is line 1", sPathFilename) = False Then
  209.             MsgBox "Ready / Error!" + vbCrLf + .LastErrMsg, vbExclamation, " Append"
  210.         End If
  211.         If .Append("This is next line", sPathFilename) = False Then
  212.             MsgBox "Ready / Error!" + vbCrLf + .LastErrMsg, vbExclamation, " Append"
  213.         End If
  214.         
  215.         .Append "Two more lines without error checking"     ' In shortest form we leave the 2nd parameter empty,
  216.         .Append "Next line without error checking"          ' so the last used filename for output is used again!
  217.         
  218.         If .Append("This is the last line!") = False Then
  219.             MsgBox "Ready / Error!" + vbCrLf + .LastErrMsg, vbExclamation, " Append"
  220.         End If
  221.         MsgBox "Ready / Success!" + vbCrLf + vbCrLf + "Appended 3 lines to " + sPathFilename, vbInformation, " Append"
  222.         Debug.Print sPathFilename + "has 3 more lines at the end!"
  223.         
  224.         
  225.     End With
  226.     Set oTEXT = Nothing
  227.     
  228. End Sub
  229.  
  230. Private Sub oTEXT_Error(sErrMsg As String, lLineNo As Long)
  231.     
  232.     MsgBox sErrMsg & " - Line# " & lLineNo, vbExclamation, "Error !"
  233.  
  234.     
  235. End Sub
  236.  
  237. Private Sub oTEXT_HandleLine(lLineNo As Long, sLine As String)
  238.  
  239.     Debug.Print lLineNo, sLine
  240.     
  241.     ' if x = y then                         example for abort of parsing
  242.     '     oTEXT.CancelParsing = True
  243.     ' End If
  244.     
  245. End Sub
  246.  
  247. ' #*#
  248.