Find & Replace

There is no simple way of replacing strings in object names and (embedded) formulas. Of course one can program a small VBA script that crawls through the whole database and changes the desired entities (names, contents).

Since the names to change occur in many different locations, it is no easy task. The following example just handles object names, formula contents and datasets for 2d diagrams.

[code]
Option Explicit

Const csSearch As String = “Jan”
Const csReplace As String = “01”

Public Sub SearchReplace()
Visit ThisDatabase.RootFolder
End Sub

Private Sub Visit(ByRef oFld As Folder)
Dim cllObs As FpObjects
Set cllObs = oFld.Objects

Dim oObj As FpObject
For Each oObj In cllObs
Select Case oObj.ObjectType
Case fpObjectTypeFolder
Visit oObj
Case fpObjectTypeFormula
VisitFormula oObj
Case fpObjectType2DDiagram
VisitDiagram2D oObj
End Select
‘ rename object itself
Dim sNewName As String
sNewName = Replace(oObj.Name, csSearch, csReplace)
If sNewName oObj.Name Then
oObj.Rename sNewName, fpRenamingOptionsDontCorrectReferences
End If
Next oObj
End Sub

Private Sub VisitFormula(ByRef oFml As Formula)
oFml.Formula = Replace(oFml.Formula, csSearch, csReplace)
End Sub

Private Sub VisitDiagram2D(ByRef oDiag2D As Diagram2D)
Dim oCurve As Curve2D
For Each oCurve In oDiag2D.Curves
With oCurve.Data
.DataSet = Replace(.DataSet, csSearch, csReplace)
.XDataSet = Replace(.XDataSet, csSearch, csReplace)
End With
Next oCurve
End Sub
[/code]

Hallo,

ich bin noch kein Profi, was VBA angeht. Ich würde gerne bitte wissen, wie der Aufruf aussieht, wenn ich VisitFormula anwenden möchte.

Bei mir geht es auch darum, die Zeichenkette (String File) in meinen Formeln in der Objektliste durch einen anderen String zu ersetzen. Danke im Voraus.

Was tippe ich in meinen Direktbereich? Danke