Soyez le premier à donner votre avis sur cette source.
Vue 31 546 fois - Téléchargée 1 857 fois
Public Function LireFichier(ByVal CheminFichier As String) As String Dim MyChaine As String Dim FreeF As Integer FreeF = FreeFile() 'Possibilité de mettre 1 FileOpen(FreeF, CheminFichier, OpenMode.Input) MyChaine = InputString(FreeF, FileLen(CheminFichier)) FileClose(FreeF) Return MyChaine End Function Public Sub EcrireFichier(ByVal CheminFichier As String, ByVal Texte As String) Dim FreeF As Integer FreeF = FreeFile() 'Possibilité de mettre 1 Texte = Replace(Texte, vbLf, vbCrLf) FileOpen(FreeF, CheminFichier, OpenMode.Output) Print(FreeF, Texte) FileClose(FreeF) End Function
Commentaires
Plutôt que d'utiliser vbLf et vbCr, tu peux utiliser la constante vbnewline.
Le nom est assez explicite... :)
je ne connaisais pas vbnewline et je ne l'ai pas encore essayée mais il est fort peobable que cela soit similaire a vbLf+vbCr soit vbCrLf.
Perso : si vbnewline n'est pas plus rapide au niveau de l'exécution que vbCrLf je continuerai d'utiliser ce dernier car il est plus rapide a écrire :) (je sais je suis un fainéant... lol)
Donc normalement la vitesse doit être identique.
Il ya plusieurs constantes qui ont été rajoutées (vbtab, ...). Fais une recherche sur vbnewline, tu les auras toutes.
tu peux les utiliser dans les msgbox par exemple pour formater ton message. C'est très pratique, explicite et évite de tapper les 2....
Avec c++ tu pourrait optimiser ton code au niveau de la vitesse , mais aussi au niveau de l'espace mémoire et ce beaucoup plus qu'avec vb qui a mon avis est très lent et gourmand en mémoire et limité pour plusieurs actions (pointeurs, hook système , ...).
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.