string en integer et faire la somme

Question

voila je veux transformer ma chaine de caractere en entier et faire la somme de ces valeurs 

j'ai essayer convert.toint  et autre fonction tjs le meme probleme 

la seul chose que j'arrive a faire c un somme de chaine de caractere qui donne 

000000059          
000000021          
000000022          
000000026           



voila c pas evident du tous  sa fais 2 jour que je suis dessus (je
suis un super debutant et je commence a avoir des cheveux blanc a cause
de cette @@@@@@)



Private Sub Moyenne_Click()

Dim udtArtEnr As ArtStruc

Dim somme As Integer

Dim Moyenne As ArtStruc

'Programation de la message box en cas d'inexistance du fichier dat

Const conMsg As String = "Fichier Inexistant."

    Const conBtns As Integer = vbOKOnly + vbInformation _

               
+ vbDefaultButton1 + vbApplicationModal ' doit repondre a cette page
obliger



'test si le fichier dat existe



If Dir("D:	emp.dat", vbHidden) <> "" Then

 For i = 1 To click

 Get #1, i, udtArtEnr

 somme = somme + udtArtEnr.strtime

  Next i

 Text1 = somme

Else

intreponse = MsgBox(conMsg, conBtns, "Acces au fichier")

End If



End Sub



merci de vos reponse

Vb Lover · Answer

2 choses :



1) essaie : Somme = Somme + CInt(udtArtEnr.strtime)

2) au lieu du #1, fais plut&#244;t qqch du genre :

    dim hFile as long

    hFile = FreeFile

    Get #hFile, ...

tonyock · Answer

nickel sa marche maintenant j'ai plus que a mettre en forme

merci pour ta reponse

toki127 · Answer

Salut tonyock!
quand tu as ta reponse essaies de cliquer sur "reponse accept&#233;e" au niveau de la personne qui t a repondu, comme ca tout le monde sais qu il y a eu une reponse pour cette question.
Merci!
Bonne prog ++

tOKi127

String en integer et faire la somme

3 réponses

Discussions similaires