FredixBlog

Quertion: Can anyone figure out a little function that will clear all line breaks (Chr(10)+Chr(13)) in a string?
Matt(+)
Fredix gave this response on 1/17/2002:
Hi!

Here is a function I use:

Public Function ClearBreaks(TheString)
dim ch, result as string
dim i as integer

    result = ""
    if len(TheString) = 0 then
        ClearBreaks = ""
        exit function
    end if

    for i = 1 to len(TheString)
        ch = mid(TheString,i,1)
        if ch <> chr(13) and ch <> chr(10) then
            result = result & ch
        else
            if ch = chr(13) then result = result & " "
        end if
    next i

    ClearBreaks = result

end function

With this, you will have the line breaks replaced by a space.

Regards.

• Truncate long path names
• Copy a file
• Create ODBC DSN
• Relink all tables
• Gibson plus solide que Fender?
• Display a counter and remaining time in a loop
• How can I e-mail a file from Microsoft Access?
• Create a linked table with VBA
• Coordinates of the third point
• Message to log file

This function copies a file

Const FOF_NOCONFIRMMKDIR = &H200
Const FOF_FILESONLY = &H80

Private Type SHFILEOPSTRUCT
      hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" _
    Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Function MyFileCopy(txtSource, txtDestination)
Dim lFileOp As Long
Dim lresult As Long
Dim lFlags As Long
Dim SHFileOp As SHFILEOPSTRUCT
Dim chkSilent, chkYesToAll, chkRename, chkDir, chkFilesOnly As Boolean

DoCmd.Hourglass True

lFileOp = FO_COPY

chkYesToAll = True
chkSilent = True

If chkSilent Then lFlags = lFlags Or FOF_SILENT
If chkYesToAll Then lFlags = lFlags Or FOF_NOCONFIRMATION
If chkRename Then lFlags = lFlags Or FOF_RENAMEONCOLLISION
If chkDir Then lFlags = lFlags Or FOF_NOCONFIRMMKDIR
If chkFilesOnly Then lFlags = lFlags Or FOF_FILESONLY
'
' NOTE: By adding the FOF_ALLOWUNDO flag you can move
' a file to the Recycle Bin instead of deleting it.
'
With SHFileOp
    .wFunc = lFileOp
    .pFrom = txtSource & vbNullChar & vbNullChar
    .pTo = txtDestination & vbNullChar & vbNullChar
    .fFlags = lFlags
End With
lresult = SHFileOperation(SHFileOp)
'
' If User hit Cancel button while operation is in progress,
' the fAborted parameter will be true
'
DoCmd.Hourglass False
'If lresult <> 0 Or SHFileOp.fAborted Then Exit Function
'MsgBox "Operation Complete", vbInformation, "File Operations"
MyFileCopy = lresult
End Function

• Create ODBC DSN
• Clear all line breaks
• GetOpenFileName()
• Gibson plus solide que Fender?
• Display a counter and remaining time in a loop
• Truncate long path names
• How can I e-mail a file from Microsoft Access?
• Create a linked table with VBA
• Coordinates of the third point
• Message to log file

This function replicates a database with another replica, or the master database.
The databases are secured.

Public Function RunReplication(TheMaster, TheRemote, UserName, Password)
Dim db As Database
Dim myDBE As DBEngine
Dim dbMyNewMdb As Database
Dim ws As Workspace
On Error GoTo Err_RunReplication
Set myDBE = New PrivDBEngine
myDBE.SystemDB = DBEngine.SystemDB
myDBE.DefaultUser = UserName
myDBE.DefaultPassword = Password
Set ws = myDBE.CreateWorkspace("ws", UserName, Password)

Set dbMyNewMdb = ws.OpenDatabase(TheMaster)

RunReplication = True

On Error Resume Next

dbMyNewMdb.Synchronize TheRemote
If Err <> 0 Then
    MsgBox Error$
    RunReplication = False
End If

On Error GoTo Err_RunReplication
dbMyNewMdb.Close
Set dbMyNewMdb = Nothing
Exit Function
Err_RunReplication:
MsgBox Error$, vbCritical
RunReplication = False

End Function

• AddReference()
• Répartir les tâches du crontab unix
• Dirty Flag for unbound form
• Clear all line breaks
• Relink all tables
• Copy a file

This function creates a reference to the specific library.

Function AddReference(chNomFichier As String) As Boolean
Dim ref As Reference

     On Error GoTo Erreur_AddReference
     Set ref = References.AddFromFile(chNomFichier)
     AddReference = True

    Sortie_AddReference:
     Exit Function

    Erreur_AddReference:
     MsgBox Err & ": " & Err.Description
     AddReference = False
     Resume Sortie_AddReference
End Function

• Running total on a form
• Replicate a database
• Répartir les tâches du crontab unix
• Create a linked table with VBA
• Clear all line breaks
• Relink all tables
• Copy a file