Discussion :

[Invité]

Bonjour

Comme vous le savez tous, la constante vbCrLf correspond à Chr(13) & Chr(10)

Je cherche comment on peut déclarer une autre constante qui aura le même effet que cette combinaison de Chr(), et sans utiliser les constantes VB , pour l'inclure dans une chaine de texte, comme la constante vb du même nom.

Merci

Philippe

[willcartley]

Tu peux créer tes propres constantes je crois

Code :

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

Public Const TonSeparateurPerso As String = Chr(1) & chr(2)

[Invité]

Bonjour

J'ai déjà testé, mais Chr() est une fonction qui renvoie une valeur, on ne peut donc pas l'utiliser lors de la déclaration d'une constante.

Cela aurait été trop simple.

Philippe

[Tonioyo]

Bonjour,

Peut être en passant par un byte. Un caractère est un octet ayant une certaine valeur (ASCII) pour un octet donné on a la valeur du CR et pour un autre octet le LN. (le 13eme et le 10eme dans le tableau) Je pense qu'on peut récupérer assez facilement les valeurs de la table ASCII apres il suffirait de déclarer deux byte (ou un tableau de byte) le remplir avec la bonne valeur et le tout sous forme de constante.

je sais pas si ca ca marche :

Code :

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

1
2
3
4
public const CR as byte = 013 ' ce n'est pas la bonne valeur c'est pour illustrer
public const LF as byte = 010 ' ce n'est pas la bonne valeur c'est pour illustrer
 
public const CRLN(2) as byte = { CR, LF } 'Notre couple de deux caractères.

Je pense qu'avec un petit cast ca devrait passer

[Tonioyo]

Pour la table ASCII :

http://www.table-ascii.com/

[Invité]

Bonjour

C'est bien essayé, mais cela ne fonctionne pas, car cela renvoie la valeur.

Philippe

[Tonioyo]

C'est surement via un pointeur en hexa mais j'arrive pas a trouver lequel ni le bon

exemple :

Code :

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

Const Ce As String * 2 = &H13 & &H10

[Invité]

Re

C'est possible, les autres constantes en VB sont souvent des entiers Longs, là c'est très facile pour faire une déclaration de constante avec un autre nom, mais pour ces Chr(13) et Chr(10) je me triture le cerveau.

Philippe

[willcartley]

En tout cas, si tes chr() font partie de cette liste, tu peux les combiner (grace à leur nom de constante) dans une seule constante perso:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
vbCrLf Chr(13) + Chr(10) Combinaison des caractères de retour chariot et de saut de ligne 
vbCr Chr(13) Caractère de saut de paragraphe 
vbLf Chr(10) Caractère de saut de ligne 
vbNewLine Chr(13) + Chr(10)  ou, sur Macintosh, Chr(13) Caractère de saut de ligne spécifique à la plate-forme ;choix en fonction de la plate-forme 
vbNullChar Chr(0) Caractère ayant la valeur 0 
vbNullString Chaîne ayant la valeur 0 Différent d'une chaîne de longueur nulle ("") ; permet l'appel de procédures externes 
vbObjectError -2147221504 Les numéros d'erreur définis par l'utilisateur doivent être supérieurs à cette valeur. Par exemple :
Err.Raise Number = vbObjectError + 1000 
vbTab Chr(9) Caractère de tabulation 
vbBack Chr(8) Caractère de retour arrière 
vbFormFeed Chr(12) Inutilisé sous Microsoft Windows ou sur Macintosh 
vbVerticalTab Chr(11) Inutilisé sous Microsoft Windows ou sur Macintosh

genre

Code :

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

Public Const TonConst As String = vbCr & vbLf

[Invité]

Bonjour

Code :

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

Public Const TonConst As String = vbCr & vbLf

Non, car tu utilises des constantes Vb, hors je ne veux aucune constante VB.

Ne cherchez pas à savoir pourquoi, c'est comme cela, je ne sais pas si c'est possible, mais je veux redéfinir les constantes vb avec un autre nom.

Philippe

[Tonioyo]

J'ai remarqué que les codes clavier sont bloqués en desous du 32 (non inclus), c'est a dire que si l'on tape dans la fenetre du code Alt + 48 ca correspond au caractère 0 ca ca marche mais pour les caractères en desous de 31 le vrai caractère (qui devrait ressembler à un carré vide) est remplacé systématiquement par un point d'interrogation.

Je me demande si access n'a pas été concus pour nous empêcher d'accèder aux caractères spéciaux.

[Invité]

Bonjour

Je sens que cela va pas le faire mon truc

Comme je l'ai déjà écrit, lorsque l'on remplace une variable de type Long, pas de soucis, mas Chr() renvoi un code ASCII, hors il semble que l'on ne peut le déclarer

Philippe

[Tonioyo]

Héhé ... juste histoire de jetter un peu le flou...

On peu déclarer une constante de type string contenant du code ASCII
C'est étrange que l'on ne puisse pas y affecter un caractère spécial (les 30 premiers de la table ASCII)

[Invité]

Héhé ... juste histoire de jetter un peu le flou...

On peu déclarer une constante de type string contenant du code ASCII
C'est étrange que l'on ne puisse pas y affecter un caractère spécial (les 30 premiers de la table ASCII)

Ce qui m'aiderait beaucoup, car ensuite s'est utilisé comme une chaine, et non comme une constante

[Maxence HUBICHE]

Tu veux cela dans un module ou un module de classe ?
Peu importe... puisque tu ne peux pas, réfléchissons...
Une constante, sur le principe, c'est une variable non modifiable dans la suite du programme.
Pourquoi ne pas créer une propriété en lecture seul (dans le module ou le module de classe... peu importe )

Code :

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

1
2
3
Property Get myCrLf() As String
    myCrLf = Chr(13) & Chr(10)
End Property

Après test, ca marche parfaitement bien dans un module standard :

Code :

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

1
2
3
4
5
6
Property Get myCrLf() As String
    myCrLf = Chr(13) & Chr(10)
End Property
Function Test()
    MsgBox "première ligne" & myCrLf & "deuxième ligne"
End Function

[Tonioyo]

Très juste, ca rends donc inévitable l'utilisation de la fonction Chr() ou des constantes déjà définies dans Access. Ca serrait interessant de savoir comment la constante vbCrLf est faite (construite / déclarée) dans Access.
Est-elle elle aussi sous forme de propriété ?

[Invité]

Re

Salut Maxence.

Je ne pense pas que cela fonctionne.

Allez je vais cracher le morceau, c'est pour un module de conversion en Ooo de code VB entre autre le fameux vbCrLf, en fait qui interprète du code VB que l'on colle dans Ooo pour que cela fonctionne sans avoir à y retoucher, par le passage de constantes qui interprète la valeur. Cela ne concerne que du code VB classique et non le VBA des différentes suites.

Très juste, ca rends donc inévitable l'utilisation de la fonction Chr() ou des constantes déjà définies dans Access. Ca serrait interessant de savoir comment la constante vbCrLf est faite (construite / déclarée) dans Access.
Est-elle elle aussi sous forme de propriété ?

D'où la question, comment est crée cela.

[ucfoutu]

Bonjour,

je crains fort que la constante n'est pas la chaîne renvoyée, mais tout simplement la valeur (keycode) de la touche.
La fonction chr(VB....) me parait être ensuite n'être qu'interprêtée par Windows. Elle ne me semble pas être une constante en soi mais provoquer un comportement (en fonction de son utilisation), la constante restant la valeur qu'elle utilise et non sa traduction. Le résultat obtenu étant selon ce que je pense celui d'un "message envoyé", soit par SendMessage, soit par SendInput, un peu comme dans ce petit exemple, avec une textbox Text1 et un bouton de commande commande1, la propriété Multiline de la Textbox étant définie à True.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Type KEYBDINPUT
  wVk As Integer
  wScan As Integer
  dwFlags As Long
  time As Long
  dwExtraInfo As Long
End Type
Private Type GENERALINPUT
  dwType As Long
  xi(0 To 23) As Byte
End Type
Private Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, pInputs As GENERALINPUT, ByVal cbSize As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
 
Private Sub Command1_Click()
    Text1.SetFocus
    Text1.Text = "a"
    Text1.SelStart = Len(Text1.Text)
    DoEvents
    envoyer 13
    envoyer 10
    DoEvents
    Text1.Text = Text1.Text & "b"
End Sub
 
Private Sub envoyer(bKey As Byte)
    Dim GInput(0 To 1) As GENERALINPUT
    Dim KInput As KEYBDINPUT
    KInput.wVk = bKey
    KInput.dwFlags = 0
    GInput(0).dwType = 1
    CopyMemory GInput(0).xi(0), KInput, Len(KInput)
    KInput.wVk = bKey
    KInput.dwFlags = &H2
    GInput(1).dwType = 1
    CopyMemory bKey, bKey, Len(bKey)
    SendInput 2, GInput(0), Len(GInput(0))
End Sub

Mais je ne suis pas dans les secrets de l'équipe de M. Bill et peux donc me tromper, c'est évident.

[Maxence HUBICHE]

rien compris à ton explication Philippe...
Désolé

[LedZeppII]

Bonsoir,

Il n'y a pas en VB (à ma connaissance) de caractère d'échappement permettant d'écrire un caractère
de manière littérale à partir de son code ASCII, contrairement à d'autres langages comme C par exemple, où on écrirait

Code :

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

#define MON_CRLF "\x0d\x0a"

Je pense que c'est pour cette raison, que les constantes vbBack, vbCr, vbCrLf, vbFormFeed, vbLf, ...
font partie de la dll VBE6.DLL (bibliothèque VBA).
Comme on peut pas les écrire, on ne peut pas les déclarer en VB.
Le seul moyen d'en disposer, c'est au travers d'une bibliothèque (créée dans un autre langage ?).

A+