Announcement

**Michael Mattias** · 4 May 2008, 09:03 AM

In the original routine, you can count the number of characters replaced; when that equals the number of characters in the 'search for' you must be done and can exit.

If you can't figure out how to count the number of characaters replaced in the original code, you can eschew the use of that code and keep it simple:

Code:

' bCase [in]: TRUE, the search is case-sensitive; FALSE it ain't.

' returns: TRUE, a replacement was made
           FALSE, it wasn't

FUNCTION ReplaceFirstOccurence (Main AS STRING, searchFor AS STRING, replaceWith as string, BYVAL bCase AS LONG) AS LONG

     LOCAL iPos AS LONG, bReplace AS LONG
     LOCAL WMain AS STRING, WSearchFor AS STRING

     IF ISFALSE bCase THEN
        wMain  =  LCASE$(Main)
        wSearchFor = LCASE$(SearchFor)
     ELSE
        wMain      = Main
        wSearchFor = SearchFor
     END IF

     iPos = INSTR (wMain, wsearchFor) 
     IF ISTRUE iPos THEN 
          MID$(Main, iPos, Len(searchfor)) = ReplaceWith
          bReplace = %TRUE
     END IF

     FUNCTION = bReplace
  
END FUNCTION

MCM

**Pierre Bellisle** · 4 May 2008, 11:33 AM

Hey Spencer,

[Updated 2008/05/06]

Code:

 [Font=Courier New] [Size=2]
[color=#0000FF]#COMPILE EXE[/color] [color=#008080]'#CC 4.04#[/color]
[color=#0000FF]#DIM ALL[/color]
[color=#0000FF]#INCLUDE[/color] [color=#800040]"Win32Api.inc"[/color] [color=#008080]'#2005-01-27#
'______________________________________________________________________________[/color]
 
[color=#0000FF]FUNCTION[/color] ReplaceAll([color=#0000FF]BYVAL[/color] txt [color=#0000FF]AS STRING[/color], [color=#0000FF]BYVAL[/color] s [color=#0000FF]AS STRING[/color], [color=#0000FF]BYVAL[/color] r [color=#0000FF]AS STRING[/color], _
                                        [color=#0000FF]BYVAL[/color] mc [color=#0000FF]AS LONG[/color], [color=#0000FF]BYVAL[/color] wo [color=#0000FF]AS LONG[/color], fnd [color=#0000FF]AS LONG[/color], CountOnly [color=#0000FF]AS LONG[/color], _
                                        [color=#0000FF]BYVAL[/color] Occurence [color=#0000FF]AS LONG[/color]) [color=#0000FF]AS STRING[/color]
  [color=#0000FF]LOCAL[/color] x [color=#0000FF]AS LONG[/color], x2 [color=#0000FF]AS LONG[/color], Letter [color=#0000FF]AS BYTE PTR[/color], Letter2 [color=#0000FF]AS BYTE PTR[/color], Letter3 [color=#0000FF]AS BYTE PTR[/color]
  [color=#0000FF]LOCAL[/color] ckLet [color=#0000FF]AS BYTE PTR[/color], OldLetter [color=#0000FF]AS BYTE PTR[/color], oldx [color=#0000FF]AS LONG[/color], Flag [color=#0000FF]AS LONG[/color], sln [color=#0000FF]AS LONG[/color]
  [color=#0000FF]LOCAL[/color] tmpCountOnly [color=#0000FF]AS LONG[/color], dif [color=#0000FF]AS LONG[/color], rln [color=#0000FF]AS LONG[/color], oln [color=#0000FF]AS LONG[/color], fLet [color=#0000FF]AS BYTE[/color]
  [color=#0000FF]LOCAL[/color] txt2 [color=#0000FF]AS STRING[/color], txt3 [color=#0000FF]AS STRING[/color]
 
  [color=#0000FF]IF LEN[/color](s) = [color=#FF0000]0[/color] [color=#0000FF]OR LEN[/color](txt) &#60; [color=#0000FF]LEN[/color](s) [color=#0000FF]THEN EXIT FUNCTION[/color] [color=#008080]'No point in continuing..[/color]
  Fnd = [color=#FF0000]0[/color]
  [color=#0000FF]IF[/color] Occurence = [color=#FF0000]0[/color] [color=#0000FF]THEN[/color] Occurence = - [color=#FF0000]1[/color]
 
  [color=#0000FF]IF[/color] CountOnly = [color=#FF0000]0[/color] [color=#0000FF]THEN[/color] txt3 = txt                  [color=#008080]'Replace wanted, so keep a copy of original text[/color]
  oln = [color=#0000FF]LEN[/color](txt)                                    [color=#008080]'Get whole text's length[/color]
  sln = [color=#0000FF]LEN[/color](s)                                      [color=#008080]'Get search text's length[/color]
  tmpCountOnly = [color=#FF0000]1[/color]                                  [color=#008080]'Set tmp flag so we can get count first[/color]
 
  [color=#0000FF]IF[/color] mc = [color=#FF0000]0[/color] [color=#0000FF]THEN[/color]                                    [color=#008080]'If not MATCH CASE[/color]
      CharUpperBuff [color=#0000FF]BYVAL STRPTR[/color](txt), oln            [color=#008080]'Compare both search and text as UCASE strings[/color]
      CharUpperBuff [color=#0000FF]BYVAL STRPTR[/color](s), sln
  [color=#0000FF]END IF[/color]
 
  [color=#0000FF]GOTO[/color] BeginSearch                                  [color=#008080]'Ignore replace at this point[/color]
 
  BeginReplace:
  tmpCountOnly = [color=#FF0000]0[/color]                                  [color=#008080]'Now we have count, so reset this one[/color]
  rln = [color=#0000FF]LEN[/color](r)                                      [color=#008080]'Get replace text's length[/color]
  dif = fnd * (rln - sln)                           [color=#008080]'Calculate occurrences and caclculate needed space[/color]
  txt2 = [color=#0000FF]SPACE$[/color](oln + dif)                          [color=#008080]'Allocate space enough for replacements[/color]
  Letter2 = [color=#0000FF]STRPTR[/color](txt2)                            [color=#008080]'Set pointer to resulting text[/color]
  Letter3 = [color=#0000FF]STRPTR[/color](txt3)                            [color=#008080]'Set pointer to original text[/color]
 
  BeginSearch:
  Letter = [color=#0000FF]STRPTR[/color](txt)                              [color=#008080]'Set pointer to text[/color]
  fLet = [color=#0000FF]ASC[/color](s)                                     [color=#008080]'Get first letter in search text[/color]
 
  [color=#0000FF]FOR[/color] x = [color=#FF0000]1[/color] [color=#0000FF]TO[/color] oln
      [color=#0000FF]IF[/color] @Letter = fLet [color=#0000FF]THEN[/color]                          [color=#008080]'If first letter matches[/color]
          flag = [color=#FF0000]1[/color]                                      [color=#008080]'Set found flag[/color]
 
          [color=#0000FF]IF[/color] wo [color=#0000FF]THEN[/color]                                    [color=#008080]'If whole words only[/color]
              [color=#0000FF]IF[/color] x &#62; [color=#FF0000]1[/color] [color=#0000FF]THEN[/color]                               [color=#008080]'If position is &#62; 1[/color]
                  ckLet = Letter - [color=#FF0000]1[/color]                        [color=#008080]'Check letter before[/color]
                  flag = (IsCharAlphaNumeric(@ckLet) = [color=#FF0000]0[/color])   [color=#008080]'Flag becomes zero if not ok[/color]
              [color=#0000FF]END IF[/color]
              [color=#0000FF]IF[/color] Flag [color=#0000FF]THEN[/color]                                [color=#008080]'If still in business[/color]
                  [color=#0000FF]IF[/color] x &#60; oln - sln [color=#0000FF]THEN[/color]                     [color=#008080]'If position is &#60; len(txt) - len(search)[/color]
                      ckLet = Letter + sln                    [color=#008080]'Check letter after[/color]
                      flag = (IsCharAlphaNumeric(@ckLet) = [color=#FF0000]0[/color]) [color=#008080]'Flag becomes zero if not ok[/color]
                  [color=#0000FF]END IF[/color]
              [color=#0000FF]END IF[/color]
          [color=#0000FF]END IF[/color]
 
          [color=#0000FF]IF[/color] Flag [color=#0000FF]THEN[/color]                                  [color=#008080]'If still in business[/color]
              OldLetter = Letter : oldx = x               [color=#008080]'Store positions[/color]
              [color=#0000FF]FOR[/color] x2 = [color=#FF0000]2[/color] [color=#0000FF]TO[/color] sln                           [color=#008080]'Check against rest of search string[/color]
                  [color=#0000FF]INCR[/color] Letter : [color=#0000FF]INCR[/color] x                      [color=#008080]'Increase pointers[/color]
                  [color=#0000FF]IF[/color] @Letter &#60;&#62; [color=#0000FF]ASC[/color](s, x2) [color=#0000FF]THEN[/color]             [color=#008080]'If anything different[/color]
                      Letter = OldLetter : x = oldx           [color=#008080]'Reset positions[/color]
                      flag = [color=#FF0000]0[/color] : [color=#0000FF]EXIT FOR[/color]                     [color=#008080]'Reset flag and move on[/color]
                  [color=#0000FF]END IF[/color]
              [color=#0000FF]NEXT[/color]
              [color=#0000FF]IF[/color] Flag [color=#0000FF]THEN[/color]                                [color=#008080]'If valid sub string found[/color]
                  [color=#0000FF]IF[/color] TmpCountOnly = [color=#FF0000]0[/color] [color=#0000FF]THEN[/color]                  [color=#008080]'If not in counting mode but in replacing mode[/color]
                      [color=#0000FF]IF[/color] Occurence = [color=#FF0000]0[/color] [color=#0000FF]THEN[/color]                   [color=#008080]'All occurence have been treated[/color]
                          Letter = OldLetter                    [color=#008080]'Put back old pointer[/color]
                          x = oldx                              [color=#008080]'Put back old pointer[/color]
                          Flag = [color=#FF0000]0[/color]                              [color=#008080]'Lie and say nothing found[/color]
                      [color=#0000FF]ELSE[/color]
                          [color=#0000FF]DECR[/color] Occurence                        [color=#008080]'Keep count (Text will be replaced)[/color]
                      [color=#0000FF]END IF[/color]
                  [color=#0000FF]END IF[/color]
              [color=#0000FF]END IF[/color]
          [color=#0000FF]END IF[/color]
      [color=#0000FF]END IF[/color]
 
      [color=#0000FF]IF[/color] tmpCountOnly [color=#0000FF]THEN[/color]                            [color=#008080]'If initial count[/color]
          [color=#0000FF]IF[/color] flag [color=#0000FF]THEN[/color]                                  [color=#008080]'Match, so increase counter and reset flag[/color]
              [color=#0000FF]INCR[/color] fnd : flag = [color=#FF0000]0[/color]
          [color=#0000FF]END IF[/color]
      [color=#0000FF]ELSE[/color]                                            [color=#008080]'Else, if replace action[/color]
          [color=#0000FF]IF[/color] flag = [color=#FF0000]0[/color] [color=#0000FF]THEN[/color]                              [color=#008080]'No match[/color]
              ckLet = Letter3 + x - [color=#FF0000]1[/color]                     [color=#008080]'Set pointer in original string[/color]
              @Letter2 = @ckLet                           [color=#008080]'Just copy bytes from original string[/color]
          [color=#0000FF]ELSE[/color]                                          [color=#008080]'Else perfect match, so[/color]
              [color=#0000FF]POKE$[/color] Letter2, r                            [color=#008080]'Poke replace string into place[/color]
              Letter2 = Letter2 + rln - [color=#FF0000]1[/color]                 [color=#008080]'Increase pointers in resulting string[/color]
              flag = [color=#FF0000]0[/color]                                    [color=#008080]'And reset flag[/color]
          [color=#0000FF]END IF[/color]
          [color=#0000FF]INCR[/color] Letter2
      [color=#0000FF]END IF[/color]
 
      [color=#0000FF]INCR[/color] Letter                                     [color=#008080]'Next letter[/color]
  [color=#0000FF]NEXT[/color]
 
  [color=#0000FF]IF[/color] CountOnly [color=#0000FF]THEN[/color]                                 [color=#008080]'If CountOnly flag was set[/color]
      txt2 = [color=#0000FF]FORMAT$[/color](fnd)                             [color=#008080]'Return count both as string and in fnd variable[/color]
  [color=#0000FF]ELSE[/color]
      [color=#0000FF]IF[/color] fnd [color=#0000FF]AND[/color] tmpCountOnly [color=#0000FF]THEN[/color]
          [color=#0000FF]GOTO[/color] BeginReplace                             [color=#008080]'Else jump to label and replace found occurrences[/color]
                                                                                                      [color=#008080]'(Function will then return resulting text in txt2)[/color]
                                                                                                      [color=#008080]'(fnd will still return count..)[/color]
                                                                                                      [color=#008080]'return result - or count, on Count all..[/color]
      [color=#0000FF]END IF[/color]
  [color=#0000FF]END IF[/color]
 
  [color=#0000FF]FUNCTION[/color] = txt2
 
[color=#0000FF]END FUNCTION[/color]
[color=#008080]'______________________________________________________________________________[/color]
 
[color=#0000FF]FUNCTION PBMAIN[/color]() [color=#0000FF]AS LONG[/color]
  [color=#008080]'LOCAL FoundCount AS LONG[/color]
  [color=#008080]'[/color]
  [color=#008080]'MessageBox %HWND_DESKTOP, BYCOPY _[/color]
  [color=#008080]'  ReplaceAll("--x----x----x--", "x", "o", 0, 0, FoundCount, 0, 2) &#38; _[/color]
  [color=#008080]'  $CRLF &#38; "FoundCount =" &#38; STR$(FoundCount), _[/color]
  [color=#008080]'  BYCOPY "Börge's ReplaceAll", %MB_ICONINFORMATION OR %MB_OK[/color]
 
  [color=#0000FF]LOCAL[/color] FoundCount [color=#0000FF]AS LONG[/color]
  [color=#0000FF]LOCAL[/color] sourceText [color=#0000FF]AS STRING[/color]
  [color=#0000FF]LOCAL[/color] i [color=#0000FF]AS INTEGER[/color]
 
  sourceText = [color=#800040]"path=\\172.16.12.55\data\workarea\archive\1.pdf"[/color]
  [color=#0000FF]STDOUT[/color] sourceText
  sourceText = ReplaceAll(sourceText, [color=#800040]"path=\\172.16.12.55\data\workarea\"[/color],[color=#800040]"&#60;?xml version=1.0?&#62;&#60;document&#62;&#60;Identifier&#62;\\courage\xyz\pdf\xml\"[/color],[color=#FF0000]0[/color],[color=#FF0000]0[/color], FoundCount, [color=#FF0000]0[/color], [color=#FF0000]0[/color])
  [color=#0000FF]STDOUT[/color] sourceText
  sourceText = ReplaceAll(sourceText, [color=#800040]".pdf"[/color],[color=#800040]".pdf&#60;/Identifier&#62;"[/color],[color=#FF0000]0[/color],[color=#FF0000]0[/color], FoundCount, [color=#FF0000]0[/color], [color=#FF0000]0[/color])
  [color=#0000FF]STDOUT[/color] sourceText
  sourceText = ReplaceAll(sourceText, [color=#800040]"&#60;documentField name="[/color][color=#800040]"FdnName"[/color][color=#800040]"/&#62;"[/color],[color=#800040]"&#60;FdnName&#62;test&#60;/FdnName&#62;"[/color],[color=#FF0000]0[/color],[color=#FF0000]0[/color], FoundCount, [color=#FF0000]0[/color], [color=#FF0000]0[/color])
  [color=#0000FF]STDOUT[/color] sourceText
 
  [color=#0000FF]PRINT[/color] : [color=#0000FF]PRINT[/color] [color=#800040]"Press any key or click to continue..."[/color] : [color=#0000FF]MOUSE ON[/color] : [color=#0000FF]MOUSE[/color] [color=#FF0000]3[/color], [color=#0000FF]UP[/color] : [color=#0000FF]WAITKEY$[/color]
 
[color=#0000FF]END FUNCTION[/color]
[color=#008080]'______________________________________________________________________________
'[/color]
 [/Size][/Font]

**Spencer Shearer** · 4 May 2008, 11:14 PM

I added the code as Pierre suggested. I now receive the following error as seen below. Does this make any sense to you?

PowerBASIC Console Compiler
PB/CC Version 4.04
Copyright (c) 1998-2007 PowerBasic Inc.
Venice, Florida USA
All Rights Reserved

Primary source: C:\CUSTOM~1\Tools\eLibrary.bas {50263 total lines}
Target compilation: eLibrary.exe
Compile time: 0.2 seconds, at 15078900 lines/minute

12164 bytes compiled code, 26783 bytes RTLibrary,
1116 bytes string literals, and 3064 bytes dgroup.
Executable stack size: 1048576 bytes.
Disk image: 45056 bytes Memory image: 30963 bytes.

Component Files:
----------------
C:\CUSTOM~1\TOOLS\ELIBRARY.BAS
C:\PBCC40\WINAPI\WIN32API.INC
REPLACEALL.INC
==============================
Compile succeeded at 12:07:43 AM on 5/5/2008

Begin Debug at 12:07:43 AM on 5/5/2008
HEAP[eLibrary.exe]:
Heap block at 0014C170 modified at 0014C358 past requested size of 1e0<0A>
HEAP[eLibrary.exe]:
Invalid Address specified to RtlSizeHeap( 00140000, 0014C178 )<0A>
HEAP[eLibrary.exe]:
Heap block at 0014C170 modified at 0014C358 past requested size of 1e0<0A>
HEAP[eLibrary.exe]:
Invalid Address specified to RtlFreeHeap( 00140000, 0014C178 )<0A>
End Debug at 12:07:56 AM on 5/5/2008

**Michael Mattias** · 5 May 2008, 09:08 AM

Well, since you don't call those Rtl functions yourself, my best guess is that somewhere in your code you are misuing a pointer (writing) or failing to set a correct buffer size.

This is the line which suggests that:
>Heap block at 0014C170 modified at 0014C358 past requested size of 1e0<0A>

But to get practical here...

Mr. Hagsten's code is a general-purpose function designed to do a case-insensitive replace of all occurrences of a target string... a case-insensitive PowerBASIC 'REPLACE' if you will.

Your application only wants to replace the first occurrence of a target string.

Call me naive or insensitive, but for that purpose why not keep it simple and just use the tools provided by the compiler (eg INSTR and MID$=)?

MCM

**Pierre Bellisle** · 5 May 2008, 10:13 AM

Hey Spencer,

I did only few tests, I reposted the whole thing above
to make sure that we are working on the same code.
If it still explode, what strings and options are you using
when calling the function.

**Spencer Shearer** · 5 May 2008, 04:00 PM

Hi Michael,

I am taking advantage of all of the search and replace functionality in the ReplaceAll code. Such as case sensitive and insensitive, wholeword and most often replacing all occurrences. I have a dataset that I need to do many modifications to. Last run it made about 70,000 changes. The search and replace settings are created and saved in a configuration file. My application reads this configuration file, crawls the drive to find candidate files based on a user specified starting location and makes all of the changes as needed. This dataset is challenging as there are certain occurrences of the same word that need to be changed to different words. The only way I can figure out how to do this easily is change the first occurrence of the word, reset the search replace term and find the next occurrence of the search term, which is now the first occurrence again.

I had thought about using the tools provided by the compiler, but the ReplaceAll code is fast, and I want to provide the same functionality for search configured in the Search and Replace configuration I provide.

So you are not being insensitive, just asking good questions.

Spencer

**Michael Mattias** · 5 May 2008, 06:14 PM

as there are certain occurrences of the same word that need to be changed to different words.

I sure hope this is a 'one-off' conversion-type application (for which you are receiving many many dollars), because this design stinks.

That is, there simply must be a better way to get the desired output.

However..

I want to provide the same functionality for search configured in the Search and Replace configuration I provide.

.. it doesn't sound like it.

Oh, wait a minute... this is one of those "I am going to cooperate with a non-cooperating application" things, isn't it?

MCM

**Michael Mattias** · 5 May 2008, 06:52 PM

Then again... you could keep it simple even given you need to replace the 'nth' occurrence with a different string...

ReplaceWith() [IN]: Array of replacement tokens with the value at subscript 'n' being the replacement
for occurrence n; ReplaceWith(1) replaces first occurrence, ReplaceWith(2) the second, etc.

Code:

FUNCTION ReplaceAllOccurrences (Main AS STRING, searchFor AS STRING, replaceWith() as string, BYVAL bCase AS LONG) AS LONG

     LOCAL iPos AS LONG, bReplace AS LONG
     LOCAL WMain AS STRING, WSearchFor AS STRING
     LOCAL ipos() AS LONG, ihit AS LONG, nSub AS LONG, iSub as LONG, offset as LONG

     'create working string of correct case for search
     IF ISFALSE bCase THEN
        wMain  =  LCASE$(Main)
        wSearchFor = LCASE$(SearchFor)
     ELSE
        wMain      = Main
        wSearchFor = SearchFor
     END IF

   ' Build a table of positions in original string of all occurrences of 'Searchfor'
   ' up to the maximum number of replacements specified:

     REDIM iPOs (UBOUND (ReplaceWith,1)) ' hold all specified replacements 

     iStart=   1    ' where else?
     iSub  =   0    ' we increment AFTER we find a hit..

     DO 
        iHit =  INSTR (iStart, wMain, SearchFor) 

        IF iHit THEN
           INCR iSub
           iPos(iSub) = iHit
           iStart     = iHit + LEN(SearchFor)   ' assume no embedded finds.  Use +1 to handle embedded. 
         ELSE           ' no more hits found
            EXIT DO
         END IF
     LOOP WHILE iStart <= LEN(wMain) AND iSub <= UBOUND (iPos,1) 

     ' at this point isub holds the number of occurrences actually found up to 
     ' the maximum number of replacement strings. Since we want to reuse that variable
     ' let's put it somewhere else.

     nSUB = iSub

     iSub   =  1
     offset =  0             ' no replacements made yet so no length adjustment req'd.
     DO WHILE iSub <= nSub   ' never executes if no hits found
           MID$(main, ipos(iSub) + 0ffset, LEN(SearchFor)) = Replacewith(iSub) 
           ' adjust offset for characters added to and subtracted from 
           ' main string by the last replace. 
           offset  =  offset + LEN(Replacewith(iSub)) - LEN(searchFor) 
           INCR iSub
     LOOP   
              
     FUNCTION = ISTRUE (nSub)

  
END FUNCTION

Not tested but I'll bet it's close. You can speed that up a bit by getting LEN(searchfor) and LEN(wMain) once instead of multiple times as shown.

You could do pretty much the same thing to the original procedure by passing an array of "replacewith" strings.

MCM

**Spencer Shearer** · 6 May 2008, 12:08 AM

Hi Pierre,

In the example above if you change pbmain to the following and then debug the program you will see the heap error.

Spencer

Code:

FUNCTION PBMAIN() AS LONG
LOCAL FoundCount AS LONG
LOCAL sourceText AS STRING

LOCAL i AS INTEGER
    STDOUT sourceText
    sourceText = "path=\\172.16.12.55\data\workarea\archive\1.pdf"

    sourceText = ReplaceAll(sourceText, "path=\\172.16.12.55\data\workarea\","<?xml version=1.0?><document><Identifier>\\courage\xyz\pdf\xml\",0,0, FoundCount, 0, 0)
    sourceText = ReplaceAll(sourceText, ".pdf",".pdf</Identifier>",0,0, FoundCount, 0, 0)
    sourceText = ReplaceAll(sourceText, "<documentField name=""FdnName""/>","<FdnName>test</FdnName>",0,0, FoundCount, 0, 0)

END FUNCTION

**Michael Mattias** · 6 May 2008, 07:16 AM

If the stepping debugger is failing with those messages, the problem is in the stepping debugger. You need to send a report to [email protected] along with source code, compiler version and any required data files. They may want hardware and O/S info, too, but heap error handling in the stepping debugger is above my pay grade so I'd probably just include that in my report.

This forum is not an official communications venue for bug reports.

**Spencer Shearer** · 6 May 2008, 07:35 AM

Hi Michael,

I will submit the report as you suggest. Thanks for your help. I will try your code suggestion as well.

Thanks,
Spencer

**Pierre Bellisle** · 6 May 2008, 10:59 AM

Spencer,
No need to submit anything,
I found it, problem was in original code.

Add
Fnd = 0
to the beginning of the function,
this will prevent errors with invalid
Fnd preset on subsequents call.

**Steve Rossell** · 6 May 2008, 11:03 AM

Hi Spencer,

I looked at your code and you are overwriting critical sections of Windows system memory through your pointer variables. The PowerBASIC debugger is functioning correctly, until it needs to use memory which has been damaged.

I found that upon returning from the

Code:

sourceText = ReplaceAll(sourceText, "<documentField name=""FdnName""/>","<FdnName>test</FdnName>",0,0, FoundCount, 0, 0)

function call the heap error occurs. You can also see this same heap error when trying to modify the variable txt2 before exiting the function. This indicates that the memory for this variable and possibly others has been corrupted. I am afraid this will take a bit of detective work on your part to locate the actual culprit code. Best of luck.

**Michael Mattias** · 6 May 2008, 12:41 PM

The PowerBASIC debugger is functioning correctly, until it needs to use memory which
has been damaged...

.... at which time it displays some cryptic messages designed to scare the snot out of the user?

**Bob Zale** · 6 May 2008, 01:30 PM

Originally posted by Michael Mattias View Post

.... at which time it displays some cryptic messages designed to scare the snot out of the user?

No, please read the messages. They are Window's messages, not from PowerBASIC. Please call your uncle Bill.

**Michael Mattias** · 6 May 2008, 02:18 PM

Code:

Begin Debug at 12:07:43 AM on 5/5/2008
HEAP[eLibrary.exe]: 
Heap block at 0014C170 modified at 0014C358 past requested size of 1e0<0A>
HEAP[eLibrary.exe]: 
Invalid Address specified to RtlSizeHeap( 00140000, 0014C178 )<0A>
HEAP[eLibrary.exe]: 
Heap block at 0014C170 modified at 0014C358 past requested size of 1e0<0A>
HEAP[eLibrary.exe]: 
Invalid Address specified to RtlFreeHeap( 00140000, 0014C178 )<0A>
End Debug at 12:07:56 AM on 5/5/2008

It sure looks like these ARE "PowerBASIC" messages...that is, they are the output of a PowerBASIC Inc. Product.

When you are a Real User and a product displays a message, I just cannot find it unreasonable to assume the message text was provided by the publisher.

I know that is not the kind of text you normally use for error messages; but 'newbies' to the PB product don't have 15+ years looking at "genuine" PB error messages; and would have no way of knowing that is not what a "normal" message looks like.

I don't know that it's even possible, but perhaps you could cushion the blow by inserting before the "End Debug at..."

"An error occrred during the debugger session. Please don't blame us for the message text, as it was provided by Uncle Bill"

Something like that, anyway.

**Bob Zale** · 6 May 2008, 03:06 PM

I'm really surprised you are confused, Michael.

The product is a debugger. It displays any text sent to the debug stream. Even if sent by the target program. Even if sent by Windows. Even if sent by you. That's what debuggers do. Text in the debug stream has no signature. It has no thumb print. It has no DNA sample. It is text. It is displayed because it's there. The product is a debugger and it displays whatever is present in the debug stream.

Next you'll want us to censor the PRINT statements you put in your own program? {smile}

Have a nice day.

Bob Zale
PowerBASIC Inc.

**Michael Mattias** · 6 May 2008, 05:18 PM

You should not be surprised I'm confused.....since I don't use the stepping debugger. (Real Men and all that).

But it's pretty clear to me OP (Mr. Shearer) was at best befuddled and at most alarmed by the messages he got. I was suggesting that some changes to exactly what appears on the user's screen might make it easier to use and understand.

As I said before, I don't know that it's even possible - and based on your comments here about "what debuggers do" I'm thinking it may well not be possible at all - but anything that makes your product easier to use and understand certainly is worth some consideration.

MCM

**Bob Zale** · 7 May 2008, 03:39 AM

Originally posted by Michael Mattias View Post

...but anything that makes your product easier to use and understand certainly is worth some consideration.

Of course. That's exactly why one of our engineers spent over an hour going over his code.

And, since you're such a bright guy, I'm sure you now realize how unpleasant it is to read about "scaring the snot" out of anyone.

Best regards,

Bob Zale
PowerBASIC Inc.

Announcement

ReplaceAll Question...

ReplaceAll Question...

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment

Comment