Virgules <=> points, remplace dans fichier par dll

Soyez le premier à donner votre avis sur cette source.

Vue 9 985 fois - Téléchargée 458 fois

Description

DLL (API ne pas enregistrer) 3 Ko fait le boulot en instantané.
Tests faits dans module vba Excel.
Fichiers en accès exclusif, doivent être fermés avant appel fonction.
bnVrgl.txt contient code de la DLL.

' ------------------------ WORKBOOK OPEN
Declare Sub SetCurrentDirectoryA Lib "Kernel32.dll" (ByVal pdir As String)
' ------------------------

Declare Function bnPointsEnVirgules Lib "bnVrgl.dll" (ByVal szFile As String) As Long
Declare Function bnVirgulesEnPoints Lib "bnVrgl.dll" (ByVal szFile As String) As Long

Sub TestPointsEnVirgules()
Dim r As Long
r = bnPointsEnVirgules("TestVb.txt")
If r Then
MsgBox "ERREUR", vbExclamation
Else: MsgBox "OK", vbInformation
End If
End Sub

Sub TestVirgulesEnPoints()
Dim r As Long
r = bnVirgulesEnPoints("TestVb.txt")
If r Then
MsgBox "ERREUR", vbExclamation
Else: MsgBox "OK", vbInformation
End If
End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
55
Date d'inscription
samedi 25 septembre 2004
Statut
Membre
Dernière intervention
7 août 2007

Re salut je suis un abrutit de première tu l as mi dans un fichier texte encore dsl a la prochaine peut etre .
Messages postés
55
Date d'inscription
samedi 25 septembre 2004
Statut
Membre
Dernière intervention
7 août 2007

salut c'est une trés bonne sources mais j'aimerais pouvoir faire la même chose avec d'autre caratère pour mon cas un ; alors se serais cool d'avoir la source de la dll à plus et beau boulot.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.