Code archives/Algorithms/Pattern$() Function
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Group identification and form identification are important to the overall process of finding the critical information that may be buried in statements, text, or whatever. | |||||
Graphics 640,480 ClsColor 0,0,128 Cls Print "If you had a social security number, it would be in the form of" Print pattern$("123-45-6789")+" or "+pattern$("A123-45-6789") Print Print "If you had a date, such as Jan 12, 2001, it would be in the form" Write " of "+pattern$("Jan 12, 2001")+", "+pattern$("01/12/2001")+", " Print pattern$("01-12-2001")+", or something similar." Print Print "If you had a phone number replaced by "+pattern$("(123) 456-7890")+"," Print "it would also be very easy to recognize, right?" Print Print "And you can probably guess what this pattern: "+pattern$("12:30 am") Print "would most likely represent." Print Print "But wait! This one could be hard: "+pattern$("Calhoun, John C.") WaitKey End Function pattern$(sstring$) Local a,temp$="" For a=1 To Len(sstring$) Select Mid(sstring$,a,1) Case "0","1","2","3","4","5","6","7","8" temp$=temp$+"9" Case "B","C","D","E","F","G","H","I","J","K","L","M","N" temp$=temp$+"A" Case "O","P","Q","R","S","T","U","V","W","X","Y","Z" temp$=temp$+"A" Case "b","c","d","e","f","g","h","i","j","k","l","m","n" temp$=temp$+"a" Case "o","p","q","r","s","t","u","v","w","x","y","z" temp$=temp$+"a" Default temp$=temp$+Mid(sstring$,a,1) End Select Next Return temp$ End Function |
Comments
None.
Code Archives Forum