home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / REPLACEF.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-03-21  |  3.8 KB  |  97 lines
  1. ReplaceForm
  2. Replace Dialog Box
  3. Form2%
  4.     CancelBtn
  5. &Cancel
  6. OKBtn
  7.     GlobalChk
  8. Global
  9. WholeWordChk
  10. Whole word
  11.     PromptChk
  12. Prompt before replacing
  13. CaseSenseChk
  14. Case sensitive
  15. ReplaceBox
  16. FindBox
  17. ReplaceLbl
  18. Replace
  19. FindLbl
  20. GlobalChk_Click
  21.     GlobalChk1
  22. Value
  23. Form1
  24. TextBox
  25. SelStart
  26. Form_Click
  27.     Form_Load 
  28. ReplaceBox
  29. ReplaceString
  30. FindBox
  31. FindString/
  32. CancelBtn_Click
  33. ReplaceFormT
  34. ReplacceBox
  35. CaseSenseChkX
  36. ReplaceCheckBoxes
  37. ReplaceCheckBox
  38.     CaseSense
  39. CaseSenseVal
  40. StoreStatush
  41. WholeWordValJ
  42. WholeWordChk
  43.     PromptVal
  44.     PromptChk
  45.     GlobalVal
  46. OKBtn_Clickr
  47. CurIndex
  48. Find^
  49.     SelLength(
  50. FindCom
  51. Checkedm
  52. True|
  53. False
  54. Replace
  55. FoundMatch
  56. MatchIndex
  57. IsWord
  58. Choice
  59. SelText
  60. FindBox_Change
  61. FindBox_GotFocus
  62. HilightText
  63. ReplaceBox_Change
  64. HighlighhtText
  65. HighlightText
  66. ReplaceBox_GotFocus
  67.     FindCount
  68.     FindC0unt
  69. CancelBtn_Click
  70. FindBox_GotFocus
  71. Form_Load
  72. IsWord
  73. OKBtn_Click
  74.  start search and replaces
  75.  found a match
  76.  replace flagh
  77.  update the index to the current character
  78.  store the text of the Find box in the variable Find
  79.  store the text of the Replace box in the variable Replace
  80.  is variable Find empty?
  81.  nothing to find
  82.  locate the index of the next substring Find in the
  83.  text boxh
  84.  are we looking for a whole word?s
  85.  found a match? 
  86.  Yes! Display the matching text as selected text
  87. Replace '"
  88.  Cancel 
  89.  advance CurIndex
  90. No more matching strings
  91. Information"&
  92. No match was found
  93. Information"&
  94.  now unload the dialog box
  95. ReplaceBox_GotFocus
  96. StoreStatus
  97.