unit1.~dfm

VBS解析_delphi.rar function ParseFileDir(a_strFileName) { var l_FunNo var l_BaseDir var res

object FormMain: TFormMain
  Left = 253
  Top = 135
  Width = 539
  Height = 422
  Caption = 'FormMain'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 531
    Height = 395
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20989#25968#35299#26512
      object Label1: TLabel
        Left = 0
        Top = 201
        Width = 24
        Height = 13
        Caption = #20256#20837
      end
      object Label2: TLabel
        Left = 0
        Top = 223
        Width = 24
        Height = 13
        Caption = #20256#20986
      end
      object mmo_FileDirCode: TMemo
        Left = 0
        Top = 0
        Width = 523
        Height = 193
        Align = alTop
        HideSelection = False
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        Lines.Strings = (
          'function ParseFileDir(a_strFileName)'
          '{    '
          '  var l_FunNo;'
          '  var l_BaseDir;'
          '  var result;'
          '  l_BaseDir = "D:\\X'#39033#30446'\\";'
          '  l_FunNo = a_strFileName.substring(0, 5);'
          '  result = l_BaseDir+l_FunNo + '#39'\\'#39'+a_strFileName;'
          '  return result;'
          '}')
        ScrollBars = ssBoth
        TabOrder = 0
      end
      object Button_3: TButton
        Left = 272
        Top = 196
        Width = 75
        Height = 25
        Caption = #36816#34892
        TabOrder = 1
        OnClick = Button_3Click
      end
      object edt_input: TEdit
        Left = 36
        Top = 197
        Width = 230
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 2
        Text = 'CF514_Tform_main_CHS.xml'
      end
      object edt_output: TEdit
        Left = 36
        Top = 221
        Width = 230
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 3
      end
    end
    object TabSheet2: TTabSheet
      Caption = #35745#31639#20844#24335
      ImageIndex = 1
      object edt_formula: TEdit
        Left = 24
        Top = 24
        Width = 257
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 0
        Text = 'LOG(SQR(1+2)+3)'
      end
      object Button_2: TButton
        Left = 24
        Top = 56
        Width = 75
        Height = 25
        Caption = #35745#31639
        TabOrder = 1
        OnClick = Button_2Click
      end
      object edt_result: TEdit
        Left = 24
        Top = 96
        Width = 257
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 2
      end
    end
    object TabSheet3: TTabSheet
      Caption = #27491#21017#34920#36798#24335
      ImageIndex = 2
      object mmo_result: TMemo
        Left = 0
        Top = 226
        Width = 425
        Height = 118
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 0
      end
      object Button_1: TButton
        Left = 350
        Top = 197
        Width = 75
        Height = 25
        Caption = #36816#34892
        TabOrder = 1
        OnClick = Button_1Click
      end
      object mmo_FunGetUrlFile: TMemo
        Left = 0
        Top = 0
        Width = 425
        Height = 193
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        Lines.Strings = (
          'function GetUrlFile(Url)'
          '    Set RegObject = New RegExp '
          '    With RegObject'
          '    .Pattern = "\w+\.\w+(?!.)"'
          '    .IgnoreCase = True'
          '    .Global = True'
          '    End With'
          '    Set matchs =  RegObject.Execute(Url)'
          '    If matchs.Count > 0 Then'
          '        For Each mach in matchs'
          '            GetUrlFile=mach.value'
          '        Next'
          '    End If'
          '    Set RegObject = nothing'
          'end function ')
        ScrollBars = ssBoth
        TabOrder = 2
      end
      object edt_www: TEdit
        Left = 0
        Top = 200
        Width = 348
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
        TabOrder = 3
        Text = 'http://blog.csdn.net/jie115/archive/2004/09/15/104900.aspx'
      end
    end
  end
  object ScriptControl1: TScriptControl
    Left = 296
    Top = 56
    Width = 32
    Height = 32
    ControlData = {
      2143341208000000ED030000ED030000D2F1594E010000001400000010270000
      01000000}
  end
end