Retour à la ligne à partir d'un certain nombre de caractères... [Résolu]
mattbboys - - Dernière réponse : mattbboys - 1 févr. 2013 à 09:59
A voir également:
- Retour à la ligne à partir d'un certain nombre de caractères...
- Retour à la ligne - Forum - PHP
- Retour à la ligne c++ - Forum - C / C++ / C++.NET
- Retour a la ligne c# ✓ - Forum - C# / .NET
- [fichier] ecrire un retour à la ligne lisible sous notepad ✓ - Forum - C# / .NET
- Jlabel retour à la ligne ✓ - Forum - Java
15 réponses
Meilleure réponse
- Messages postés
- 781
- Date d'inscription
- lundi 22 janvier 2007
- Statut
- Membre
- Dernière intervention
- 30 octobre 2013
Je penses que ton problème vient du fait que commentaire n'est pas un string.
Regarde si commentaire a une méthode tosring (ou autre)et utilise la pour la boucle.
Si non il faut que tu crées un varible string qui prendra la valeur que tu veux et que tu utiliseras pour la boucle et qui sera envoyé a autocad.
Regarde si commentaire a une méthode tosring (ou autre)et utilise la pour la boucle.
Si non il faut que tu crées un varible string qui prendra la valeur que tu veux et que tu utiliseras pour la boucle et qui sera envoyé a autocad.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
208 internautes nous ont dit merci ce mois-ci
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
PS : Rectifications à faire, mais juste par esprit de perfection :
- j = j + 15 + 2, le +2 à cause du vbCrLf
- & à la place des +, les chaines se concatènent avec des &
- Remplace While-Wend (obsolète) par Do While-Loop
- j = j + 15 + 2, le +2 à cause du vbCrLf
- & à la place des +, les chaines se concatènent avec des &
- Remplace While-Wend (obsolète) par Do While-Loop
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
208 internautes nous ont dit merci ce mois-ci
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Bonjour,
Ce que tu cherches, au bout du compte, n'est pas ouvrir un fichier, mais l'exécuter, en fonction de son extension, avec le programme qui le concerne.
Intéresse-toi donc dans ce cas à l'utilisation de la fonction ShellExecute de l'Api de Windows. Tu trouveras de très nombreuses discussions et des sources déposées à ce propos sur ce forum. Sers-toi de son moteur de recherche (mot clef : ShellExecute).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Ce que tu cherches, au bout du compte, n'est pas ouvrir un fichier, mais l'exécuter, en fonction de son extension, avec le programme qui le concerne.
Intéresse-toi donc dans ce cas à l'utilisation de la fonction ShellExecute de l'Api de Windows. Tu trouveras de très nombreuses discussions et des sources déposées à ce propos sur ce forum. Sers-toi de son moteur de recherche (mot clef : ShellExecute).
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
208 internautes nous ont dit merci ce mois-ci
Bonjour mattbboys.
Je suppose que vous travaillez sous vb6, et non pas vb.net. Dans cette hypothèse, je vous suggère de chercher dans votre aide les fonctions Left, Mid, et Right, appliquées aux variables de type String. Avec la fonction Len que vous avez déjà mentionnée, vous devriez pouvoir vous débrouiller.
Cordialement.
Étant illettré, je signe d'une croix : ×
Je suppose que vous travaillez sous vb6, et non pas vb.net. Dans cette hypothèse, je vous suggère de chercher dans votre aide les fonctions Left, Mid, et Right, appliquées aux variables de type String. Avec la fonction Len que vous avez déjà mentionnée, vous devriez pouvoir vous débrouiller.
Cordialement.
Étant illettré, je signe d'une croix : ×
- Messages postés
- 14008
- Date d'inscription
- samedi 29 décembre 2001
- Statut
- Modérateur
- Dernière intervention
- 28 août 2015
Bien joué 4u4me4us
Juste pour parfaire cette solution déjà fonctionnelle :
Puisqu'on insère un vbCrLf, on ajoute donc 2 caractères à la chaine.
Donc le saut fait après cette insertion devrait être de 15+2.
Pour les chaines de caractères, mieux vaut utiliser le symbole & pour concaténer les morceaux, + pouvant être mal interprété par le compilo sous certaines conditions ... sur lesquelles on finira forcément par tomber un jour.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)
Juste pour parfaire cette solution déjà fonctionnelle :
Puisqu'on insère un vbCrLf, on ajoute donc 2 caractères à la chaine.
Donc le saut fait après cette insertion devrait être de 15+2.
Pour les chaines de caractères, mieux vaut utiliser le symbole & pour concaténer les morceaux, + pouvant être mal interprété par le compilo sous certaines conditions ... sur lesquelles on finira forcément par tomber un jour.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on le partage (Socrate)
Merci pour votre rapidité !
Effectivement ça a l'air logique, néanmoins l'ajout de ce petit morceau me fait un joli bug général d'AutoCAD qui ne répond plus :) !
Voici la partie du code concerné, j'ai certainement du faire une erreur...
'Début de la boucle d'insertion des commentaires
If commentairechoice = True Then
contenu1 = ExcelSheet.Cells(row, column1)
PointInsertion(0) = xc
PointInsertion(1) = yc
PointInsertion(2) = 0
Hauteur = 0.18
Set commentaire = ThisDrawing.ModelSpace.AddText(contenu1, PointInsertion, Hauteur)
commentaire.Rotation = (2 * Atn(1) / 2)
Dim j As Integer
j = 15
While j < Len(commentaire)
commentaire = Mid(commentaire, 1, j) + vbCrLf + Mid(commentaire, j + 1)
j = j + 15
Wend
commentaire.Update
row1 = row1 + 1
xc = xc + 4
End If
Effectivement ça a l'air logique, néanmoins l'ajout de ce petit morceau me fait un joli bug général d'AutoCAD qui ne répond plus :) !
Voici la partie du code concerné, j'ai certainement du faire une erreur...
'Début de la boucle d'insertion des commentaires
If commentairechoice = True Then
contenu1 = ExcelSheet.Cells(row, column1)
PointInsertion(0) = xc
PointInsertion(1) = yc
PointInsertion(2) = 0
Hauteur = 0.18
Set commentaire = ThisDrawing.ModelSpace.AddText(contenu1, PointInsertion, Hauteur)
commentaire.Rotation = (2 * Atn(1) / 2)
Dim j As Integer
j = 15
While j < Len(commentaire)
commentaire = Mid(commentaire, 1, j) + vbCrLf + Mid(commentaire, j + 1)
j = j + 15
Wend
commentaire.Update
row1 = row1 + 1
xc = xc + 4
End If
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
- Modérateur
- Dernière intervention
- 11 avril 2018
Bonjour,
dans on code tu as déclaré commentaire comme un objet.
Un objet n'est pas une chaine de caractères.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
dans on code tu as déclaré commentaire comme un objet.
Un objet n'est pas une chaine de caractères.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.