Discussion :

[mathieuq]

Bonjour à tous,

Voilà j'ai tenté de créé une fonction qui effectue un retour à la ligne sur une chaine de caractère à partir de 15 caractères. Cette chaine est utilisé ensuite dans une fonction d'ajout de texte d'excel vers autocad.

exemple: de DISJONCTION VARIATEUR je veux passer à

DISJONCTION
VARIATEUR

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim j As Integer
j = 15
 
Do While j < Len(contenu1)
 
contenu1 = Mid(contenu1, 1, j) & vbCrLf & Mid(contenu1, j + 1)
j = j + 15 + 2
 
Loop

Mon problème: le texte que je retrouve sur autocad est:

___________DISJONCTION?
______________________VARIATEUR

Avec des points d'interrogation pour les espaces et le texte à la ligne est décalé sous la 1ère partie...

Si vous avez une idée..d'avance merci!

PS: tous les autres moyens comme les chr(), les vbnewline, les %0A et les <BR> que j'ai trouvé ailleurs sur internet me font la même chose.

[infosam76]

Cela ressemble un peu à un problème d'encodage, comment passez vous l'information à autocad ?

[mathieuq]

Je le passe par la fonction AddText comme ceci:

Set commentaire = ThisDrawing.ModelSpace.AddText(contenu1, PointInsertion, Hauteur)

[infosam76]

Dans votre exemple, déjà vous n'arriverez jamais à
DISJONCTION
VARIATEUR

car DISJONCTION = 11 caractère ce qui donnerais :
DISJONCTION VAR
VARIATEUR

Au lieu de vbCrLf préférez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
System.Environment.NewLine

[mathieuq]

Oui cela n'était juste qu'un exemple qui m'est passé par la tête..

Après quand il s'agira de définir le nombre de caractères, je pense que ça ira...

En attendant, vous pensez que cela vient peut-être du fait que je demande à une variable string de passer à la ligne et qui est ensuite envoyé dans une fonction qui envoi ce texte à travers un objet à Autocad?

cela créerai donc un conflit?

[mathieuq]

Comme ceci?

contenu1 = Mid(contenu1, 1, j) & System.Environment.NewLine & Mid(contenu1, j + 1)

Cela ne provoque rien, le texte reste sur une seule ligne.. dois-je activer une référence?

[infosam76]

Non je ne pense pas j'aurais plutôt tendance à penser qu'Autocad n'interprète pas de la même marnière les caractères de passage à la ligne ou d'autres caractères qui passe bien dans VB.

Peut-être donc essayer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
        Do While j < Len(contenu1)
 
            contenu1 = Mid(contenu1, 1, j) & System.Environment.NewLine & Mid(contenu1, j + 1)
            j = j + 15 + 2
 
        Loop

et si cela ne fonctionne pas essayer ceci pour voir ce que cela donne dans autocad :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Dim sTemps() As String
 
        contenu1 = "DISJONCTION VARIATEUR"
 
        sTemps = contenu1.Split(New [Char]() {" "})
 
        contenu1 = ""
        For Each s As String In sTemps
            contenu1 += If(contenu1.Length = 0, "", System.Environment.NewLine) + s.ToString()
        Next