Sélectionner un texte d'un point à un autre - Archives Visual Basic / Texte, Visual Basic, VB6, VB.NET, VB 2005, VB

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 17:10:57

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

LISTVIEW ET TRI par Sator

RE : OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

RE : ERREUR : éLéMENTS DUPLIQUéS NON PRIS EN CHARGE PAR LE PARAMèTRES "RESOURCES" par cboulas

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

COMMANDBARS par aljan

+ de logiciels à télécharger

1 465 358 membres
405 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 279 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Poser une question

Sujet : Sélectionner un texte d'un point à un autre [ Archives Visual Basic / Texte ] (grivel)

Informations & options pour cette discussion

Vous êtes ici : Thèmes / Archive Visual Basic & VB.NET / Archives Visual Basic / Texte / Sélectionner un texte d'un point à un autre
Ce sujet vous interesse ? Cliquez ici pour être averti quand il y a une nouvelle réponse

jeudi 24 février 2005 à 15:37:53 | Sélectionner un texte d'un point à un autre

grivel

Salut à tous !
J'aimerai en fait sélectionner une partie d'un texte dans un texte plus grand.
Par exemple dans une page, un paragraphe seulement m'intéresse (disons qu'il va de "premier message" à "fin du premier message" par exemple et que le texte(complet) commence avant et se termine après).
Comment faire pour sélectionner seulement le passage concernant le premier paragraphe (toujours dans le même exemple) ?

D'avance merci pour vos réponses

++

jeudi 24 février 2005 à 15:47:42 | Re : Sélectionner un texte d'un point à un autre

hassen	bonjour, Text1="je vais a l'ecole" Text1.SelStart = 3 Text1.SelLength = 6 Text1.SetFocus le text selectionner sera: "vais a" j'espere que ca repond a ta question Hassen TUNISIE
	Rép. MP 321 msg 334 msg CS

jeudi 24 février 2005 à 16:07:39 | Re : Sélectionner un texte d'un point à un autre

grivel

Merci mais en fait ta réponse ne va pas exactement avec ce que je fais.

En fait je fais une appli avec serveur POP et ce serveur renvoie toutes les infos en un seul bloc, donc tous les emails sont collés ensemble.

Mon but est donc de pouvoir les « séparer » en sachant que je connais là où l’email commence, où il s’arrête mais la longueur des emails peut varier (normal…^_^), je ne la connais donc pas, du coup je ne peux pas me servir de SelLength...

Donc voilà, une autre idée ?

jeudi 24 février 2005 à 16:42:56 | Re : Sélectionner un texte d'un point à un autre

grivel

OK, voici un exemple de ce que renvoie le serveur POP :
C'est ce qu'il renvoie pour un seul email :
J'ai donc délimité le début du mail et la fin du mail par :
[b]demande du mail n°1[/b] pour débuter
[b]******FIN DU MESSAGE*******[/b] pour terminer

Le principal problème est toujours celui de savoir comment sélectionner ce qu'il y a entre les 2...

[code]16:24:15 - connexion établie.
16:24:15 - envoi du nom d'utilisateur.
16:24:15 - utilisateur OK.
16:24:15 - envoi du mot de passe.
16:24:16 - identification réussie.
16:24:16 - récupération des informations...
16:24:16 - 9 nouveau(x) message(s)
16:24:16 - taille totale des messages : 143607 octets.
16:24:16 - demande du mail n°1
Return-Path: <xxx@valenciennes.net>
Received: from mwinf0908.wanadoo.fr (mwinf0908.wanadoo.fr)
by mwinb0801 (SMTP Server) with LMTP; Mon, 21 Feb 2005 10:18:26 +0100
X-Sieve: Server Sieve 2.2
Received: from me-wanadoo.net (localhost [127.0.0.1])
by mwinf0908.wanadoo.fr (SMTP Server) with ESMTP id CD51434001E7
for <xxx@wanadoo.fr>; Mon, 21 Feb 2005 10:18:25 +0100 (CET)
Received: from smtp-1.nordnet.fr (smtp-2.nordnet.fr [194.206.126.252])
by mwinf0908.wanadoo.fr (SMTP Server) with ESMTP id 88AC334001E6
for <xxx@wanadoo.fr>; Mon, 21 Feb 2005 10:18:25 +0100 (CET)
X-ME-UUID: xxx@mwinf0908.wanadoo.fr
Received: from xxx (pools2-44.adsl.nordnet.fr [195.146.238.44])
by smtp-1.nordnet.fr (8.12.11/8.12.11) with SMTP id j1L9IN16027725
for <xxx@wanadoo.fr>; Mon, 21 Feb 2005 10:18:24 +0100
Message-ID: <00af01c517f7$901f0480$e101340a@MONTURYPC>
From: "xxx" <xxx@valenciennes.net>
To: "xxx" <xxx@wanadoo.fr>
References: <000001c5049b$dae7e640$0500000a@xxx> <004b01c50517$9e985fe0$e101340a@xxx> <000c01c516ac$1cd3b670$0100000a@xxx>
Subject: =?iso-8859-1?Q?Re:_Question_sur_le_dossier_d'inscription_=E0_xxx?=
Date: Mon, 21 Feb 2005 10:22:06 +0100
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_007D_01C517FF.31920680"
X-Priority: 3
X-MSMail-Priority: Normal
X-Mailer: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106
This is a multi-part message in MIME format.
------=_NextPart_000_007D_01C517FF.31920680
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
cochez le cycle sup=E9rieur
----- Original Message -----=20
From: xxx=20
To: xxx=20
Sent: Saturday, February 19, 2005 6:54 PM
Subject: Question sur le dossier d'inscription =E0 xxx
Bonjour, je viens de recevoir le dossier d'inscription pour =
xxx et je voudrais savoir quelle case faut-il cocher entre :.....
   ------=_NextPart_000_007D_01C517FF.31920680
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns=3D" [ Lien ]" xmlns:o =3D=20
"urn:schemas-microsoft-com:office:office" xmlns:w =3D=20
"urn:schemas-microsoft-com:office:word"><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3DWord.Document name=3DProgId>
<META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR>
<META content=3D"Microsoft Word 10" name=3DOriginator><LINK=20
href=3D"cid:filelist.xml@01C503BE.4497DD40" rel=3DFile-List>
<STYLE>@page Section1 {size: 595.3pt 841.9pt; margin: 70.85pt 70.85pt =
70.85pt 70.85pt; mso-header-margin: 35.4pt; mso-footer-margin: 35.4pt; =
mso-paper-source: 0; }
P.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; =
mso-style-parent: ""; mso-pagination: widow-orphan; =
mso-fareast-font-family: "Times New Roman"
}
LI.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; =
mso-style-parent: ""; mso-pagination: widow-orphan; =
mso-fareast-font-family: "Times New Roman"
}
DIV.MsoNormal {
FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt; FONT-FAMILY: "Times New Roman"; =
mso-style-parent: ""; mso-pagination: widow-orphan; =
mso-fareast-font-family: "Times New Roman"
}
A:link {
COLOR: blue; TEXT-DECORATION: underline; text-underline: single
}
SPAN.MsoHyperlink {
COLOR: blue; TEXT-DECORATION: underline; text-underline: single
}
A:visited {
COLOR: purple; TEXT-DECORATION: underline; text-underline: single
}
SPAN.MsoHyperlinkFollowed {
COLOR: purple; TEXT-DECORATION: underline; text-underline: single
}
SPAN.StyleCourrierlectronique17 {
COLOR: windowtext; FONT-FAMILY: Arial; mso-style-type: =
personal-compose; mso-style-noshow: yes; mso-ansi-font-size: 10.0pt; =
mso-bidi-font-size: 10.0pt; mso-ascii-font-family: Arial; =
mso-hansi-font-family: Arial; mso-bidi-font-family: Arial
}
SPAN.SpellE {
mso-style-name: ""; mso-spl-e: yes
}
DIV.Section1 {
page: Section1
}
</STYLE>
</HEAD>
<BODY lang=3DFR style=3D"tab-interval: 35.4pt" vLink=3Dpurple =
link=3Dblue=20
bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>cochez...</FONT></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV=20
style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
<A title=3Ddavid-grivel@wanadoo.fr=20
href=3D"Davidmailto:david-grivel@wanadoo.fr">David</A> </DIV>
<DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =
title=3Dsupinfogame@valenciennes.net=20
href=3D"supinfogamemailto:supinfogame@valenciennes.net">supinfogame</A> </DIV>
<DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Saturday, February 19, =
2005 6:54=20
PM</DIV>
<DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Question sur le =
dossier=20
d'inscription =E0</DIV>
<DIV><BR></DIV>
<DIV><FONT face=3DArial size=3D2>Bonjour, je viens de recevoir le =
dossier=20
d'inscription et je voudrais savoir quelle case... =
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Je vous remercie d'avance pour votre=20
r=E9ponse.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Cordialement</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>xxx=20
xxx</FONT></DIV></BLOCKQUOTE></BODY></HTML>
------=_NextPart_000_007D_01C517FF.31920680--

******* FIN DU MESSAGE *******
16:24:17 - fin de la réception du mail n°1
16:24:17 - demande du mail n°2[/code]

etc pour les suivants...

jeudi 24 février 2005 à 16:43:47 | Re : Sélectionner un texte d'un point à un autre

hassen

rebonjour,

alors soit le texte entier:
TousMessage="bla bla bla Debut Message1 bla bla bla Fin Message1 bla bla bla"

Private Function ChaineEntre(Text, ChaineDebut, ChaineFin As String) As String
Dim posDebut, PosFin As Long
posDebut = InStr(1, Text, ChaineDebut) + Len(ChaineDebut)

PosFin = InStr(posDebut, Text, ChaineFin)

If PosFin = 0 Then
ChaineEntre = ""
Exit Function
End If

ChaineEntre = Mid(Text, posDebut, PosFin - posDebut)

End Function

mon_text=ChaineEntre(TousMessage,"Debut Message1","Fin Message1")

il faut tester la fonction parce que je viens juste de la faire. mais je crois qu'elle marche bien

Hassen TUNISIE

jeudi 24 février 2005 à 17:28:37 | Re : Sélectionner un texte d'un point à un autre

grivel	Ok merci pour cette fonction, je vais tester
	Rép. MP 30 msg 36 msg CS

Cette discussion est classé dans : texte, exemple, paragraphe, premier, sélectionner

Répondre à ce message

Sujets en rapport avec ce message

Insérer du texte dans un textbox [ par phil ] Salut !J'ai un textbox,je suis a un endroit donne dans le contenu du textbox (exemple : en plein milieu).Je clique sur un bouton et je veux qu'a l'end Algo de Recherche Texte ... newbie en panne [ par Rosbif ] Bonjour d'Angleterre,C'est penible d'apprendre a programmer a 39 ans. Je me lance tout juste dans VB6, pour la premiere fois. Je demarre pas trop mal, comment retourné un texte de 180° (un exemple svp) ou alors le mettre dans une picture box [ par toto ] comment retourné un texte de 180° (un exemple svp) ou alors le mettre dans une picture boxsi vous me repondé vous serez nommé dans mon progmercilaissé comment retourné un texte de 180° (un exemple svp) ou alors le mettre dans une picture box [ par toto ] comment retourné un texte de 180° (un exemple svp) ou alors le mettre dans une picture boxsi vous me repondé vous serez nommé dans mon progmercilaissé comment retourné un texte de 180° (un exemple svp) ou alors le mettre dans une picture box [ par toto ] comment retourné un texte de 180° (un exemple svp) ou alors le mettre dans une picture boxsi vous me repondé vous serez nommé dans mon progmercilaissé Effacer une ligne dans un fichier texte [ par Tristan ] Bonjour a tous,Je voudrais pouvoir effacer une ligne quelconque dans un fichier txt.Exemple ****Le fichier initial est :ceci est la premiere lignececi Caramail [ par codefalse ] Please help for caramail !Voilà, j'aimerai avoir la commaned qui permet de envoyer le texte qui se trouve, par exemple dans text1.text sur la zone de Premier jour du mois [ par JoVB ] Hello, pour mon programme j'aurais besoin de savoir quel est le premier jour du mois en conaissanr l'année et (bien sur) le mois !Par exemple si je sa sélectionner un chiffre dans un texte en vba [ par ant666 ] Bonjour,Est il possible de sélectionner un chiffre dans un texte :par exemple dans : "bonjour868" pour récupérer seulement 868!!merci!!!!!!!!!!!ant666 Sélectionner Texte, compris entre deux chaines de caractères. URGENT !!! [ par z980x ] Bonjour à tous !Si vous pouviez m'aider rapidement ca serait cool parce que c'est assez urgent !!!Voici mon problème:J'ai un fichier texte avec des ch