home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dump_s1r / strmanip.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-15  |  10.8 KB  |  320 lines
  1. VERSION 5.00
  2. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  3. Begin VB.Form frmStrManip 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "String Manipulations"
  6.    ClientHeight    =   4776
  7.    ClientLeft      =   48
  8.    ClientTop       =   336
  9.    ClientWidth     =   5004
  10.    Icon            =   "StrManip.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4776
  15.    ScaleWidth      =   5004
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.PictureBox picieExtreme 
  19.       AutoSize        =   -1  'True
  20.       BorderStyle     =   0  'None
  21.       Height          =   768
  22.       Left            =   30
  23.       Picture         =   "StrManip.frx":000C
  24.       ScaleHeight     =   768
  25.       ScaleWidth      =   2856
  26.       TabIndex        =   10
  27.       Top             =   3480
  28.       Width           =   2856
  29.    End
  30.    Begin TabDlg.SSTab Tabs 
  31.       Height          =   3435
  32.       Left            =   30
  33.       TabIndex        =   0
  34.       Top             =   30
  35.       Width           =   4935
  36.       _ExtentX        =   8700
  37.       _ExtentY        =   6054
  38.       _Version        =   327681
  39.       Style           =   1
  40.       TabHeight       =   520
  41.       TabCaption(0)   =   "Dir Example"
  42.       TabPicture(0)   =   "StrManip.frx":1797
  43.       Tab(0).ControlEnabled=   -1  'True
  44.       Tab(0).Control(0)=   "Label1"
  45.       Tab(0).Control(0).Enabled=   0   'False
  46.       Tab(0).Control(1)=   "Label2"
  47.       Tab(0).Control(1).Enabled=   0   'False
  48.       Tab(0).Control(2)=   "Label3"
  49.       Tab(0).Control(2).Enabled=   0   'False
  50.       Tab(0).Control(3)=   "Label4"
  51.       Tab(0).Control(3).Enabled=   0   'False
  52.       Tab(0).Control(4)=   "txtDirInput"
  53.       Tab(0).Control(4).Enabled=   0   'False
  54.       Tab(0).Control(5)=   "cmdFilePath"
  55.       Tab(0).Control(5).Enabled=   0   'False
  56.       Tab(0).Control(6)=   "txtFilePathOut"
  57.       Tab(0).Control(6).Enabled=   0   'False
  58.       Tab(0).Control(7)=   "txtFileNameOut"
  59.       Tab(0).Control(7).Enabled=   0   'False
  60.       Tab(0).Control(8)=   "txtRetExtOut"
  61.       Tab(0).Control(8).Enabled=   0   'False
  62.       Tab(0).ControlCount=   9
  63.       TabCaption(1)   =   "Get Match Count Example"
  64.       TabPicture(1)   =   "StrManip.frx":17B3
  65.       Tab(1).ControlEnabled=   0   'False
  66.       Tab(1).Control(0)=   "Label6"
  67.       Tab(1).Control(1)=   "Label7"
  68.       Tab(1).Control(2)=   "Label8"
  69.       Tab(1).Control(3)=   "txtGMCInp"
  70.       Tab(1).Control(4)=   "txtGMCSChars"
  71.       Tab(1).Control(5)=   "txtGMCOut"
  72.       Tab(1).Control(6)=   "cmdGMCGo"
  73.       Tab(1).ControlCount=   7
  74.       TabCaption(2)   =   "Wrap Text Example"
  75.       TabPicture(2)   =   "StrManip.frx":17CF
  76.       Tab(2).ControlEnabled=   0   'False
  77.       Tab(2).Control(0)=   "cmdWWGo"
  78.       Tab(2).Control(1)=   "txtWWInput"
  79.       Tab(2).Control(2)=   "txtWWOut"
  80.       Tab(2).Control(3)=   "Label10"
  81.       Tab(2).Control(4)=   "Label9"
  82.       Tab(2).ControlCount=   5
  83.       Begin VB.CommandButton cmdWWGo 
  84.          Caption         =   "Go"
  85.          Height          =   375
  86.          Left            =   -73260
  87.          TabIndex        =   24
  88.          Top             =   3000
  89.          Width           =   1185
  90.       End
  91.       Begin VB.TextBox txtWWInput 
  92.          Appearance      =   0  'Flat
  93.          Height          =   795
  94.          Left            =   -74970
  95.          MultiLine       =   -1  'True
  96.          ScrollBars      =   3  'Both
  97.          TabIndex        =   22
  98.          Text            =   "StrManip.frx":17EB
  99.          Top             =   630
  100.          Width           =   4845
  101.       End
  102.       Begin VB.TextBox txtWWOut 
  103.          Appearance      =   0  'Flat
  104.          Height          =   1215
  105.          Left            =   -74970
  106.          Locked          =   -1  'True
  107.          MultiLine       =   -1  'True
  108.          ScrollBars      =   2  'Vertical
  109.          TabIndex        =   20
  110.          Text            =   "StrManip.frx":19D4
  111.          Top             =   1740
  112.          Width           =   4845
  113.       End
  114.       Begin VB.CommandButton cmdGMCGo 
  115.          Caption         =   "Go"
  116.          Height          =   435
  117.          Left            =   -74700
  118.          TabIndex        =   19
  119.          Top             =   2700
  120.          Width           =   1155
  121.       End
  122.       Begin VB.TextBox txtGMCOut 
  123.          Appearance      =   0  'Flat
  124.          Height          =   285
  125.          Left            =   -74940
  126.          Locked          =   -1  'True
  127.          TabIndex        =   17
  128.          Text            =   "17"
  129.          Top             =   2370
  130.          Width           =   1575
  131.       End
  132.       Begin VB.TextBox txtGMCSChars 
  133.          Appearance      =   0  'Flat
  134.          Height          =   285
  135.          Left            =   -74940
  136.          MultiLine       =   -1  'True
  137.          TabIndex        =   16
  138.          Text            =   "StrManip.frx":1BCC
  139.          Top             =   1860
  140.          Width           =   1575
  141.       End
  142.       Begin VB.TextBox txtGMCInp 
  143.          Appearance      =   0  'Flat
  144.          Height          =   975
  145.          Left            =   -74940
  146.          MultiLine       =   -1  'True
  147.          ScrollBars      =   3  'Both
  148.          TabIndex        =   14
  149.          Text            =   "StrManip.frx":1BD0
  150.          Top             =   600
  151.          Width           =   1575
  152.       End
  153.       Begin VB.TextBox txtRetExtOut 
  154.          Appearance      =   0  'Flat
  155.          Height          =   285
  156.          Left            =   60
  157.          TabIndex        =   9
  158.          Text            =   "test"
  159.          Top             =   3060
  160.          Width           =   1575
  161.       End
  162.       Begin VB.TextBox txtFileNameOut 
  163.          Appearance      =   0  'Flat
  164.          Height          =   285
  165.          Left            =   60
  166.          TabIndex        =   7
  167.          Text            =   "This_is_a.test"
  168.          Top             =   2280
  169.          Width           =   1575
  170.       End
  171.       Begin VB.TextBox txtFilePathOut 
  172.          Appearance      =   0  'Flat
  173.          Height          =   285
  174.          Left            =   60
  175.          Locked          =   -1  'True
  176.          TabIndex        =   5
  177.          Text            =   "C:\windows\po\"
  178.          Top             =   1740
  179.          Width           =   1575
  180.       End
  181.       Begin VB.CommandButton cmdFilePath 
  182.          Caption         =   "Go"
  183.          Height          =   435
  184.          Left            =   300
  185.          TabIndex        =   3
  186.          Top             =   930
  187.          Width           =   1095
  188.       End
  189.       Begin VB.TextBox txtDirInput 
  190.          Appearance      =   0  'Flat
  191.          Height          =   285
  192.          Left            =   60
  193.          TabIndex        =   2
  194.          Text            =   "C:\windows\po\This_is_a.test"
  195.          Top             =   600
  196.          Width           =   1575
  197.       End
  198.       Begin VB.Label Label10 
  199.          AutoSize        =   -1  'True
  200.          Caption         =   "Input:"
  201.          Height          =   195
  202.          Left            =   -74910
  203.          TabIndex        =   23
  204.          Top             =   390
  205.          Width           =   405
  206.       End
  207.       Begin VB.Label Label9 
  208.          AutoSize        =   -1  'True
  209.          Caption         =   "Output:"
  210.          Height          =   195
  211.          Left            =   -74910
  212.          TabIndex        =   21
  213.          Top             =   1500
  214.          Width           =   525
  215.       End
  216.       Begin VB.Label Label8 
  217.          AutoSize        =   -1  'True
  218.          Caption         =   "Output:"
  219.          Height          =   195
  220.          Left            =   -74910
  221.          TabIndex        =   18
  222.          Top             =   2160
  223.          Width           =   525
  224.       End
  225.       Begin VB.Label Label7 
  226.          AutoSize        =   -1  'True
  227.          Caption         =   "Search Chars:"
  228.          Height          =   195
  229.          Left            =   -74910
  230.          TabIndex        =   15
  231.          Top             =   1620
  232.          Width           =   1005
  233.       End
  234.       Begin VB.Label Label6 
  235.          AutoSize        =   -1  'True
  236.          Caption         =   "Input Text:"
  237.          Height          =   195
  238.          Left            =   -74910
  239.          TabIndex        =   13
  240.          Top             =   390
  241.          Width           =   765
  242.       End
  243.       Begin VB.Label Label4 
  244.          AutoSize        =   -1  'True
  245.          Caption         =   "Return Extention Example:"
  246.          Height          =   390
  247.          Left            =   90
  248.          TabIndex        =   8
  249.          Top             =   2610
  250.          Width           =   1230
  251.          WordWrap        =   -1  'True
  252.       End
  253.       Begin VB.Label Label3 
  254.          AutoSize        =   -1  'True
  255.          Caption         =   "File Name Output:"
  256.          Height          =   195
  257.          Left            =   90
  258.          TabIndex        =   6
  259.          Top             =   2070
  260.          Width           =   1275
  261.       End
  262.       Begin VB.Label Label2 
  263.          AutoSize        =   -1  'True
  264.          Caption         =   "File Path Output:"
  265.          Height          =   195
  266.          Left            =   90
  267.          TabIndex        =   4
  268.          Top             =   1530
  269.          Width           =   1185
  270.       End
  271.       Begin VB.Label Label1 
  272.          AutoSize        =   -1  'True
  273.          Caption         =   "Input Text:"
  274.          Height          =   195
  275.          Left            =   90
  276.          TabIndex        =   1
  277.          Top             =   390
  278.          Width           =   765
  279.       End
  280.    End
  281.    Begin VB.Label Label5 
  282.       AutoSize        =   -1  'True
  283.       Caption         =   "Copyright 1998 Allen Copeland"
  284.       Height          =   195
  285.       Left            =   210
  286.       TabIndex        =   12
  287.       Top             =   4440
  288.       Width           =   2175
  289.    End
  290.    Begin VB.Label lblCool 
  291.       AutoSize        =   -1  'True
  292.       Caption         =   "Here is the Image I would use If I had my very own Company"
  293.       Height          =   975
  294.       Left            =   3840
  295.       TabIndex        =   11
  296.       Top             =   3540
  297.       Width           =   1110
  298.       WordWrap        =   -1  'True
  299.    End
  300. Attribute VB_Name = "frmStrManip"
  301. Attribute VB_GlobalNameSpace = False
  302. Attribute VB_Creatable = False
  303. Attribute VB_PredeclaredId = True
  304. Attribute VB_Exposed = False
  305. Option Explicit
  306. Private Sub cmdFilePath_Click()
  307.     txtFileNameOut = ReturnExtention(txtDirInput, False, "\")
  308.     txtRetExtOut = ReturnExtention(txtDirInput, False)
  309.     txtFilePathOut = FilePath(txtDirInput)
  310. End Sub
  311. Private Sub cmdGMCGo_Click()
  312.     txtGMCOut = GetMatchCount(txtGMCInp, txtGMCSChars)
  313. End Sub
  314. Private Sub cmdWWGo_Click()
  315.     txtWWOut = WrapText(txtWWInput, txtWWInput.Width - 330, Me)
  316. End Sub
  317. Private Sub Form_Load()
  318.     txtGMCSChars = " "
  319. End Sub
  320.