OVH Cloud OVH Cloud

plusieurs questions.....

2 réponses
Avatar
Titeuf
1 )Comment trouver le nombre de ligne que contient un fichier texte ??

2 ) A part VB-PowerWrap y a t-il d'autres programmes de ce genre qui
permettent d'encapsulés des composants dans un exe ? mais je recherche un
prog qui garde le style XP de l'exe une fois l'encapsulation effectuée !

3 ) Est-ce que quelqu'un connait un OCX ou a un exemple pour le splittage de
plusieurs fenetres à la Outlook Express ?

Merci

2 réponses

Avatar
ThunderMusic
1) la seule façon que je connais est d'ouvrir le fichier en mode Input et de
faire ceci

sNbLine = 0
do while not eof(1)
line input #1, strVar
sNbLine = sNbLine + 1
Loop

3) sur www.planetsourcecode.com il y a des controls comme ca. fais une
recherche sur splitter.

J'espère que ca t'a aidé.

ThunderMusic

"Titeuf" wrote in message
news:
1 )Comment trouver le nombre de ligne que contient un fichier texte ??

2 ) A part VB-PowerWrap y a t-il d'autres programmes de ce genre qui
permettent d'encapsulés des composants dans un exe ? mais je recherche un
prog qui garde le style XP de l'exe une fois l'encapsulation effectuée !

3 ) Est-ce que quelqu'un connait un OCX ou a un exemple pour le splittage


de
plusieurs fenetres à la Outlook Express ?

Merci




Avatar
Zoury
Salut Titeuf! :O)

: 1 )Comment trouver le nombre de ligne que contient un fichier texte ??

de la même façon que tu comptes le nombre de fois qu'un expression ou un
caractère se répète dans une chaine. ;O)

'***
' Module1
Option Explicit

Private Sub Main()
Debug.Print GetFileLineCount("C:file1.txt")
End Sub

Private Function GetFileText(ByRef sFile As String) As String

Dim hFile As String

hFile = FreeFile
Open sFile For Binary As #hFile
GetFileText = String$(LOF(hFile), Chr$(0))
Get #hFile, , GetFileText
Close #hFile

End Function

Private Function StrCount _
( _
ByRef sText As String, _
ByRef sExpr As String, _
ByRef cm As VbCompareMethod _
)
StrCount = UBound(Split(sText, sExpr, -1, cm)) + 1
End Function

Private Function GetFileLineCount(ByRef sFile As String) As Long
GetFileLineCount = StrCount(GetFileText(sFile), vbNewLine, vbBinaryCompare)
End Function
'***

: 2 ) A part VB-PowerWrap y a t-il d'autres programmes de ce genre qui
: permettent d'encapsulés des composants dans un exe ? mais je recherche un
: prog qui garde le style XP de l'exe une fois l'encapsulation effectuée !

en voici deux autres

Alloy:
http://www.pgware.com/products-alloy.html

Fusion:
http://www.bit-arts.com


: 3 ) Est-ce que quelqu'un connait un OCX ou a un exemple pour le splittage de
: plusieurs fenetres à la Outlook Express ?

ce splittage de plusieurs fenêtre n'est en fait qu'une illusion.

Tu peux utiliser une classe déjà, il y a en une sur www.vbaccelerator.com je
crois (et sur d'autres site surement)

Tu peux aussi l'implémenter toi même, regarde le message suivant pour plus de
détail :
http://groups.google.com/groups?selm=OJ%24aJKoNDHA.2244%40TK2MSFTNGP11.phx.gbl


--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/