Se connecter avec
S'enregistrer | Connectez-vous

Découpage

Dernière réponse : dans Programmation

Bonjour à tous,

je rencontre un petit problème dans un petit programme.

Je dispose d'un fichier de type gerber que je souhaiterais exploiter.
C'est un fichier qui se décompose de la manière suivante :
- quelques lignes inutiles
- des lignes tel que l'exemple suivant : "X+1254Y-734D01

Je souhaiterais créer des fichiers annexes avec la coordonnée en X, celle en Y et le D. Comment faire pour récupérer chacune de ces données.
J'ai essayer la fonction split mais cela ne me donne pas ce que j'attends

Merci de vos réponses

Cordialement

Autres pages sur : decoupage

Lassé par la pub ? Créez un compte
Expert Programmation

Salut à toi,

Oh, des fichiers Gerber !
Eh, il peut y avoir des espaces dans un tel fichier.
:o 

  1. Function GetGerberValue(formula As String, letter As String) As Double
    

  2.  
  3. Dim i As Integer
    

  4. Dim b As Boolean
    

  5. Dim s As String
    

  6. Dim c As String
    

  7.  
  8. GetGerberValue = 0
    

  9.  
  10. b = False
    

  11. s = ""
    

  12.  
  13. For i = 1 To Len(formula)
    

  14. 		c = Mid(formula, i, 1)
    

  15. 		If b Then
    

  16. 		  If Not (c = "." Or (c >= "0" And c <= "9" ) Or c = "+" Or c = "-") Then Exit For
    

  17. 		  s = s + c		  
    

  18. 		ElseIf c = letter Then
    

  19.     	  b = True
    

  20.     End If
    

  21. Next
    

  22.  
  23. If s = "" Then
    

  24.   ' // Pas trouvé
    

  25.   Exit Function
    

  26. End If
    

  27.  
  28. GetGerberValue = CDbl(s)
    

  29.  
  30. End Function
Lassé par la pub ? Créez un compte

Créer un nouveau sujet