home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / truegrid / disk1 / vsdemo / vsdemo.$ / FSIMPLEA.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-12-30  |  6.9 KB  |  194 lines
  1. VERSION 2.00
  2. Begin Form fSimpleAwk 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Simple Awk"
  5.    ClientHeight    =   3255
  6.    ClientLeft      =   1245
  7.    ClientTop       =   1305
  8.    ClientWidth     =   7815
  9.    Height          =   3720
  10.    Left            =   1155
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3255
  13.    ScaleWidth      =   7815
  14.    Top             =   930
  15.    Width           =   7995
  16.    Begin VideoSoftAwk VSAwk1 
  17.       ConvInfo        =   FSIMPLEA.FRX:0000
  18.       FileName        =   "c:\config.sys"
  19.       FS              =   "="
  20.       Left            =   6585
  21.       Top             =   2715
  22.    End
  23.    Begin VideoSoftElastic VSElastic1 
  24.       Align           =   5  'Fill Container
  25.       BevelChildren   =   2  'No Elastics
  26.       BevelOuter      =   1  'Raised
  27.       BevelOuterWidth =   1
  28.       ConvInfo        =   FSIMPLEA.FRX:000B
  29.       Height          =   3255
  30.       IntBkg          =   &H00C0C0C0&
  31.       Left            =   0
  32.       ShadowColor     =   &H00404040&
  33.       TabIndex        =   1
  34.       Top             =   0
  35.       Width           =   7815
  36.       Begin VideoSoftElastic VSElastic4 
  37.          BevelInner      =   0  'None
  38.          BevelOuter      =   8  'Raised New Look
  39.          Caption         =   " Options "
  40.          ConvInfo        =   FSIMPLEA.FRX:0016
  41.          FontBold        =   0   'False
  42.          FontItalic      =   0   'False
  43.          FontName        =   "MS Sans Serif"
  44.          FontSize        =   8.25
  45.          FontStrikethru  =   0   'False
  46.          FontUnderline   =   0   'False
  47.          Height          =   1830
  48.          IntBkg          =   &H00C0C0C0&
  49.          Left            =   4680
  50.          Style           =   1  'Frame Top
  51.          TabIndex        =   4
  52.          TagWidth        =   1200
  53.          Top             =   615
  54.          Width           =   2955
  55.          Begin TextBox Text1 
  56.             FontBold        =   0   'False
  57.             FontItalic      =   0   'False
  58.             FontName        =   "MS Sans Serif"
  59.             FontSize        =   8.25
  60.             FontStrikethru  =   0   'False
  61.             FontUnderline   =   0   'False
  62.             Height          =   285
  63.             Left            =   1425
  64.             TabIndex        =   8
  65.             Tag             =   "Field Separator"
  66.             Text            =   "="
  67.             Top             =   1335
  68.             Width           =   1365
  69.          End
  70.          Begin OptionButton Option1 
  71.             BackColor       =   &H00C0C0C0&
  72.             Caption         =   "Whole Line"
  73.             FontBold        =   0   'False
  74.             FontItalic      =   0   'False
  75.             FontName        =   "MS Sans Serif"
  76.             FontSize        =   8.25
  77.             FontStrikethru  =   0   'False
  78.             FontUnderline   =   0   'False
  79.             ForeColor       =   &H00000000&
  80.             Height          =   375
  81.             Index           =   0
  82.             Left            =   330
  83.             TabIndex        =   7
  84.             Top             =   285
  85.             Value           =   -1  'True
  86.             Width           =   1575
  87.          End
  88.          Begin OptionButton Option1 
  89.             BackColor       =   &H00C0C0C0&
  90.             Caption         =   "First Field"
  91.             FontBold        =   0   'False
  92.             FontItalic      =   0   'False
  93.             FontName        =   "MS Sans Serif"
  94.             FontSize        =   8.25
  95.             FontStrikethru  =   0   'False
  96.             FontUnderline   =   0   'False
  97.             ForeColor       =   &H00000000&
  98.             Height          =   270
  99.             Index           =   1
  100.             Left            =   330
  101.             TabIndex        =   6
  102.             Top             =   630
  103.             Width           =   1575
  104.          End
  105.          Begin OptionButton Option1 
  106.             BackColor       =   &H00C0C0C0&
  107.             Caption         =   "Second Field"
  108.             FontBold        =   0   'False
  109.             FontItalic      =   0   'False
  110.             FontName        =   "MS Sans Serif"
  111.             FontSize        =   8.25
  112.             FontStrikethru  =   0   'False
  113.             FontUnderline   =   0   'False
  114.             ForeColor       =   &H00000000&
  115.             Height          =   375
  116.             Index           =   2
  117.             Left            =   330
  118.             TabIndex        =   5
  119.             Top             =   840
  120.             Width           =   1575
  121.          End
  122.       End
  123.       Begin VideoSoftElastic VSElastic3 
  124.          BevelInnerWidth =   0
  125.          BevelOuter      =   8  'Raised New Look
  126.          Caption         =   "Parse AUTOEXEC.BAT to the List box"
  127.          CaptionPos      =   4  'Center Center
  128.          ConvInfo        =   FSIMPLEA.FRX:0021
  129.          FontBold        =   -1  'True
  130.          FontItalic      =   0   'False
  131.          FontName        =   "Arial"
  132.          FontSize        =   12
  133.          FontStrikethru  =   0   'False
  134.          FontUnderline   =   0   'False
  135.          ForeColor       =   &H00800000&
  136.          Height          =   525
  137.          IntBkg          =   &H00C0C0C0&
  138.          Left            =   105
  139.          TabIndex        =   3
  140.          Top             =   60
  141.          Width           =   7440
  142.       End
  143.       Begin VideoSoftElastic VSElastic2 
  144.          AccessKey       =   -1  'True
  145.          BevelInner      =   0  'None
  146.          BevelOuter      =   8  'Raised New Look
  147.          BevelOuterWidth =   0
  148.          Caption         =   "&Parse"
  149.          CaptionPos      =   4  'Center Center
  150.          ChildSpacing    =   0
  151.          ConvInfo        =   FSIMPLEA.FRX:002C
  152.          CornerColor     =   &H00C0C0C0&
  153.          FontBold        =   0   'False
  154.          FontItalic      =   0   'False
  155.          FontName        =   "MS Sans Serif"
  156.          FontSize        =   8.25
  157.          FontStrikethru  =   0   'False
  158.          FontUnderline   =   0   'False
  159.          Height          =   510
  160.          IntBkg          =   &H00C0C0C0&
  161.          Left            =   4695
  162.          ShowFocusRect   =   -1  'True
  163.          Style           =   3  'Command Button
  164.          TabIndex        =   0
  165.          Top             =   2550
  166.          Width           =   1575
  167.       End
  168.       Begin ListBox List1 
  169.          FontBold        =   0   'False
  170.          FontItalic      =   0   'False
  171.          FontName        =   "MS Sans Serif"
  172.          FontSize        =   8.25
  173.          FontStrikethru  =   0   'False
  174.          FontUnderline   =   0   'False
  175.          Height          =   2370
  176.          Left            =   270
  177.          TabIndex        =   2
  178.          Top             =   690
  179.          Width           =   4260
  180.       End
  181.    End
  182. Option Explicit
  183. Sub VSAwk1_Begin ()
  184.     List1.Clear
  185. End Sub
  186. Sub VSAwk1_Scan ()
  187.   If Option1(0).Value Then List1.AddItem vsAwk1.F(0)
  188.   If Option1(1).Value Then List1.AddItem vsAwk1.F(1)
  189.   If Option1(2).Value Then List1.AddItem vsAwk1.F(2)
  190. End Sub
  191. Sub VSElastic2_Click ()
  192.   vsAwk1.Action = 0   'Start parsing File
  193. End Sub
  194.