Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2920 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Pb sur un open tt le code est present

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Pb sur un open tt le code est present

n°138073
rasta_cana
Peace and Frag
Posté le 13-05-2002 à 10:14:36  profilanswer
 

Voila donc en faire je vous met tout le code mais c est juste la fin la procedure Fax ki ne marche pas il plante sur le open me dis erreur 52...
Pour teste creer un bouton ds votre form1 et coller ceci Private Sub Command1_Click()
Dim ficprinc As String, Ligne As String, Temp As String
Dim x As Integer, Ind As Integer, Cpteur As Integer, NbFic As Integer
Dim Numfic As Long
 
'Declaration Ouverture du Fichier Principal
ficprinc = "c:\mes documents\Nico\test.txt"
'Test si le fichier de travail est présent
If FichierExiste(ficprinc) Then
MsgBox ("Le fichier existe" )
'Ouverture du fichier pour traitement
Open ficprinc For Input As #1
'Tant non End of File copier ligne par ligne
Do Until EOF(1)
Line Input #1, Ligne
Temp = Temp + Ligne
Temp = Temp + Chr$(10) + Chr$(13)
Loop
MsgBox (Temp)
Call Separation(Temp, NbFic)
MsgBox (NbFic)
Close #1
Call Fax(NbFic)
Else
MsgBox ("Le fichier est absent tratement impossible" )
Close #1
End
End If
End Sub
'Fonction de teste d existance de fichier
Public Function FichierExiste(Fichier As String)
FichierExiste = (Dir(Fichier, vbHidden + vbNormal + vbSystem + vbArchive + vbReadOnly) <> "" )
End Function
'Fonction Qui separe le fichier principalle en plusieur sous fichier
Public Sub Separation(ByVal Temp As String, ByRef NbFic As Integer)
'On initialise cpteur à -1 parce qu tu veux commencer à 0
Cpteur = -1
'On enlève le(s) slash(s) initial(aux) s'il y en a
If Left$(Temp, 1) = "/" Then
Do
Temp = Mid$(Temp, 2)
Loop Until Left$(Temp, 1) <> "/"
End If
'Recherche du premier slash (il déterminera également la fin de la première série de caractères
Ind = InStr(Temp, "/" )
Do While Ind <> 0 '----> boucle do loop (on ne sait pas de combien d'élément est constitué la chaîne)
Cpteur = Cpteur + 1 '----> incrément de compteur, le premier fichier sera .000
Numfic = FreeFile '----> numéro de canal pour le fichier
Open "c:\mes documents\nico\FileFax." + Format(Cpteur, "000" ) For Output As Numfic '----> ouverture du fichier en écriture
Print #Numfic, Left$(Temp, Ind - 1) '----> envoie de la chaîne lue dans le fichier
Close Numfic '----> fermeture du fichier, on n'en a plus besoin
Temp = Mid$(Temp, Ind + 2) '----> on enlève de la chaîne de caractère l'élément enregistré
Ind = InStr(Temp, "/" ) '----> on détermine où se trouve le prochain slash
Loop '----> on reprend la boucle si un slash a été trouvé
NbFic = Cpteur + 1
End Sub
'Fonction de Fax
Public Sub Fax(ByVal NbFic As Integer)
For i = 0 To NbFic - 1
Open "c:\mes documents\nico\FileFax." + Format(i, "000" ) For Input As Numfic
Print #Numfic, Temp
MsgBox (Temp)
Next i
End Sub
*Puis creer un fichier txt dans c:\mes documents\nico\ dans lekel vous ecrivez \gkgdkfgks\\kdhkfhskdhf\\jfsgdjf\ par exemple le programme va alors separer cette chaine en 3
La procedure que j essaye de creer doit ouvrir les fichier filefax.000 ... et juste m afficher une msgbox contenant le txt.
Ce n est pas tres dur ps merci de tester
^_^

mood
Publicité
Posté le 13-05-2002 à 10:14:36  profilanswer
 

n°138075
antp
Super Administrateur
Champion des excuses bidons
Posté le 13-05-2002 à 10:16:00  profilanswer
 

T'aurais pu continuer ça dans l'autre topic :sarcastic:
http://forum.hardware.fr/forum2.php3?post=18865&cat=10

 

[jfdsdjhfuetppo]--Message édité par antp le 13-05-2002 à 10:16:39--[/jfdsdjhfuetppo]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Pb sur un open tt le code est present

 

Sujets relatifs
[ASP-PHP] équivalence de code[ * ] Code source et langue utilisée...
[C] comment reduire ce bout de code ?[JS]comprend pas certaine fonction, code inside
Exécuter un programme externe dans du code C sous DOS[vbscript ou javascript]code source dans un fichier !
[vb6]récupéré le code source d'une page HTMLTelecharger la bibliothèque Open Invnetor
apllication e-business open-source en XML???Comment imprimer une image à partir d'un code javascript?
Plus de sujets relatifs à : Pb sur un open tt le code est present


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR