| Subject | Re: proper() |
| From | Mervyn Bick <invalid@invalid.invalid> |
| Date | Sun, 13 Apr 2025 16:56:46 +0200 |
| Newsgroups | dbase.getting-started |
| Attachment(s) | first_upper_test.txt, first_upper.prg, test_first_upper.prg |
On 2025/04/13 14:50, Charlie wrote: > Thanks Mervyn!! I can put this in with my functions. > > Let me ask you this. At the end of each sentence I use a period, question mark or explanation marl. Then one or two spaces. How would I code this function so it would recognize the end of the sentence and if there is more text to start the next sentence with a capital letter? > > I could possibly figure this out but know it would probably be easier for you. Although to do this only with dBASE commands would be possible, the coding to step through the string to find the start of each sentence would be a nightmare. Using a Regular Expression makes it a piece of cake. :-) function first_upper(cStrx) oRegExp = new OleAutoClient("VBScript.RegExp") oRegExp.global := true oRegExp.ignoreCase := true oRegExp.multiline := true oRegExp.pattern := "(^\s*\S)|(\.|\?|\!)\s*\S" aMatch = oRegExp.execute(cstrx) for n = 0 to aMatch.count-1 cMatch = aMatch.item(n).value nLen = aMatch.item(n).length nPos = aMatch.item(n).firstIndex cStrx = stuff(cStrx,nPos+nLen,1,upper(right(cMatch,1))) next return cStrx First_upper.prg, test_first_upper.prg and first_upper_test.txt are attached. Mervyn. | |
i live in a condo! test CRLF. is the condo life for me? The condo life. the end. | |
function first_upper(cStrx) oRegExp = new OleAutoClient("VBScript.RegExp") oRegExp.global := true oRegExp.ignoreCase := true oRegExp.multiline := true oRegExp.pattern := "(^\s*\S)|(\.|\?|\!)\s*\S" aMatch = oRegExp.execute(cstrx) for n = 0 to aMatch.count-1 cMatch = aMatch.item(n).value nLen = aMatch.item(n).length nPos = aMatch.item(n).firstIndex cStrx = stuff(cStrx,nPos+nLen,1,upper(right(cMatch,1))) next return cStrx | |
clear cStr1 = 'i live in a condo.' cStr2 = 'the condo life for me.' cStr3 = 'The first character was upper case to start with' ?first_upper(cStr1) ?first_upper(cStr2) ?first_upper(cStr3) ? cStr = 'i live in a condo! test CRLF.'+chr(13)+chr(10)+'is the condo life for me? The condo life. the end.' ?cStr ? f = new file() f.create('first_upper_test.txt') f.write(cStr,len(cStr)) f.close() ? first_upper(cStr) ? f = new file() f.open('first_upper_test.txt') nSize = f.size('first_upper_test.txt') cRead = first_upper(f.read(nsize)) f.create('first_upper_test_output.txt') f.write(cRead,len(cRead)) f.close() ?cRead | |