Stack-Überlauf beim Ersetzen von "mit" in VB 6.0

Question

Ich bin in einigen Legacy-VB 6.0-Code (eine Access XP-Anwendung), um ein Problem mit einer SQL-Anweisung durch die Access App zu lösen. Ich brauche zu verwenden, für die Fälle, einfache Anführungszeichen mit zwei einfachen Anführungszeichen zu ersetzen, wo ein Kundenname einen Apostroph im Namen (zB „Arztpraxis“ hat:

Replace(customerName, "'", "''") 

, die den Apostroph werden entkommen, so dass ich die gültige SQL :.

SELECT blah FROM blah WHERE customer = 'Doctor''s Surgery' 

Leider ist die Funktion ersetzen in eine Endlosschleife und Stapelüberlauf hervorruft, vermutlich weil es Funktion rekursiv wandelt jedes hinzugefügt Zitat mit weiteren 2 Anführungszeichen ersetzen Eg ein Quote von zwei ersetzt wird, dann ist das zweite Zitat auch ersetzt durch zwei und so weiter ...

---------------- BEARBEITEN ---------------

Ich habe bemerkt (dank Plakaten), dass die Funktion ersetzen in diesem Projekt ist individuell geschrieben:

Public Function replace(ByVal StringToSearch As String, ByVal ToLookFor As String, 
ByVal ToReplaceWith As String) As String 
Dim found As Boolean 
Dim position As Integer 
Dim result As String 

position = 0 
position = InStr(StringToSearch, ToLookFor) 
If position = 0 Then 
    found = False 
    replace = StringToSearch 
    Exit Function 
Else 
    result = Left(StringToSearch, position - 1) 
    result = result & ToReplaceWith 
    result = result & Right(StringToSearch, Len(StringToSearch) - position - Len(ToLookFor) + 1) 
    result = replace(result, ToLookFor, ToReplaceWith) 
End If 
replace = result 

End Function 

Offenbar hat VB nicht immer ersetzen Funktion von seinem eigenen. Diese Implementierung muss fehlerhaft sein. Ich werde den Ratschlägen der Leute folgen und sie zugunsten der Implementierung von VB 6 entfernen - wenn das nicht funktioniert, werde ich meine eigenen schreiben, was funktioniert. Vielen Dank für Ihre Anregungen!

Answer 1

Sind Sie sicher, dass es nicht eine proprietäre Implementierung der Funktion ersetzen ist?

Wenn ja, kann er einfach durch Ersetzen von VB6 ersetzt werden.

Ich kann mich nicht erinnern, in welcher Version es erschien (es war nicht in Vb3, aber war in VB6), also wenn die ursprüngliche Codebasis vb3/4 war, könnte es eine handcodierte Version sein.

EDIT

ich deine Bearbeitung nur sah, war ich richtig!

Ja, Sie sollten in der Lage sein, nur diese Funktion zu entfernen, es wird dann die in VB6 Ersetzungsfunktion verwenden.

Answer 2

Wir verwenden eine VB6-Anwendung, die die Option "mit" ersetzen oder vollständig entfernen kann.

Sie könnten auch durch die Buchstaben gehen, eine zweite Zeichenfolge erstellen und jedes "as" einfügen.

Answer 3

ich das in Access gerade versucht, und es funktioniert gut (keine Stackoverflow):

Public Function ReplaceSingleQuote(tst As String) As String 
     ReplaceSingleQuote = Replace(tst, "'", "''") 
End Function 


Public Sub TestReplaceSingleQuote() 
     Debug.Print ReplaceSingleQuote("Doctor's Surgery") 
End Sub