info sur une zone de texte

Question

bonjour , 

je voulais savoir , j ai une zone de texe dans laquel on peut mettre
24  caracteres , j ai aussi mis en alignement aux centres je
voudrai pouvoir recup&#233;rer ( en vu d etre traduit en ascii) se qu il y a
ds la zone de texte meme les espace avant et apres le texte en lui meme


par exemple :

dans la zone de texte :"       
bonjour         " ( 8 espace ,
bonjour , 9espace )

donc je voudrai pouvoir recup&#233;r&#233; les 8espace avant le bonjour &#233; les 9
espaces apres ceci pour etre traduit en ascii et envoyer vers un
panneau lumineux  dou le souci de centralisation du texte 

je vous remercie pour vos reponse j espre que vous pourai maider @ bientot

jpleroisse · Answer

Bonsoir,



Private Sub Command1_Click()

Dim MaVar, s

MaVar = "        Bonjour         "

s = Left$(MaVar, 24)

Text1 = s

End Sub



jpleroisse

valtrase · Answer

Lut, Cette function sort une chaine ascii par rapport au texte entré avec les espaces il te faut pour tester un label un textbox et un commandbutton Private Sub CommandButton1_Click() Label1 = TextASCII(TextBox1.Text) End Sub

Private Function TextASCII(Text As String) As String Dim LenT As Integer, Sa As Integer, Se As Integer, Retour As String, i As Integer LenT = Len(Text) Sa = (24 - LenT%) / 2 Se = 24 - LenT - Sa If Text <> "" Then For i = 1 To Sa Retour = Retour & Asc(" ") Next For i = 1 To LenT Retour = Retour & Asc((Mid(Text, i, 1))) Next For i = 1 To Se Retour = Retour & Asc(" ") Next Else Retour = String(24, "32") End If TextASCII = Retour End Function Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé

valtrase · Answer

Oups petite erreur apr&#233;s le else
Else
   For i = 1 To 24
       Retour = Retour & Asc(" ")
   Next
End If

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Revu est corrigé maxlen pour s'adapter à la longueur de ta textbox 24 par defaut

Private Function TextASCII(Text As String, Optional Maxlen As Integer = 24) As String Dim LenT As Integer, Sa As Integer, Se As Integer, Retour As String, i As Integer LenT = Len(Text) Sa = (Maxlen - LenT) / 2 Se = Maxlen - LenT - Sa If Text <> "" Then Text = Space(Sa) & Text & Space(Se) For i = 1 To Maxlen Retour = Retour & Asc(Mid(Text, i, 1)) Next Else For i = 1 To Maxlen Retour = Retour & Asc(" ") Next End If TextASCII = Retour End Function Cordialement, Jean-Paul ______________________________________________________________________ Le Savoir n'a de valeur que s'il est partagé

cs_krousty · Answer

merci mais il y a un details que je ne saisie pas en effet qd je rajoute la cmd 
DoCmd.OpenForm "reception", , , , acFormReadOnly
    Forms!reception!recoi = res
ds ma fonction  cela marche parfaitemente mais qd je la mais en deoous de la l apel de la fonction sa ne marche pas 
Dim result As String
  result = TextASCII(txt1)
    DoCmd.OpenForm "reception", , , , acFormReadOnly
    Forms!reception!recoi = result

de plus je voudrais je voudrai recup&#233;rai le resultat de 4 zone de txt de la meme maniere sa ne renvoi rien non plus jpens&#233; a un truc du genre 
result = TextASCII(txt1) & TextASCII(txt2) & TextASCII(txt3) & TextASCII(txt4) 

si vou pouviais meclercir la dessus je vous prie 

mercie encore a bientot

valtrase · Answer

J'ai pas trop saisi ce que tu veux dire......
Testes en la passant en public
Public Function TextASCII(Text As String, Optional Maxlen As Integer = 24) As String

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re,
ceci doit fonctinner j'ai test&#233; c'est bon
result = TextASCII(txt1) & TextASCII(txt2) & TextASCII(txt3) & TextASCII(txt4)
Tu prog en quoi ? VBA? , VB?, VBA ACCESS?

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_krousty · Answer

en faite je suis sur un formulaire qui est le resultat d une requette , je me retouve ac pour chaque lignes 4 zone de texte ( comme dans l exemple http://krousty.free.fr/index.php?include=img&chemin=ftp//fotos&nomfichier=requete.bmp)
je voudrai donc pouvoir ajouter a la suite les 4 zone de textes et parcourir ainsi tou les resultats donc jav&#233; pens&#233; a 
Private Sub send_Click()
Dim result As String


  Set bd = CurrentDb
    Set matable = bd.OpenRecordset("requete1")
    matable.MoveFirst
    Do While Not matable.EOF
    
        result = result & TextASCII(txt1) & TextASCII(txt2) & TextASCII(txt3) & TextASCII(txt4)
  
    matable.MoveNext
    Loop
    matable.Close
    
    DoCmd.OpenForm "reception", , , , acFormReadOnly
    Forms!reception!recoi = result
End Sub

ce qui aurai pour but de metre a la suite toute les zone de texte ac les espace entre chaque txt  mais malheresement sa ne donne rien 
donc jvoulai savoir se qui n all&#233; pa dans ce code 
je vous remercie deja pr tt votre aide 
@ bientot jespere

cs_krousty · Answer

excuser moi sa marchais parfaitement bien (enfin sauf le parcour du resultat de la requete lol ) j avais oublier juste un truc merci encore

valtrase · Answer

Bon je n'ai pas eu acc&#233;s a toutes les images de ta page mais bon....
Quand tu fais un 
Do While .....
.....
.....
Loop
Tu ne r&#233;cup&#232;re surement pas la valeur de tes text1(si ce sont des textbox)
tu dois r&#233;cup&#232;rer la valeur de tes champs
Do While Not matable.EOF
  result = result & TextASCII(matable!champ1) & TextASCII(matable!champ2) & TextASCII(matable!champ3) & TextASCII(matable!champ4)
.......
.......

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_krousty · Answer

le probleme que je rencontre est le suivant : quand j execute le code j un probleme a la ligne :"   Set matable = bd.OpenRecordset("requete1")" le debogage me dis " ereur  d'execution 3061:  trop peu de parametre.1attendu "
si vous pouvier maider je vous remercie 
@ bientot

valtrase · Answer

Oui a la fin tu dois mettre ta connexion et le type de curseur

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

Info sur une zone de texte

12 réponses

Discussions similaires