Trouver un string et écrire les prochains caractères

Version imprimable

05/07/2014, 18h47
YaMOo

Trouver un string et écrire les prochains caractères

Bonjour !

Premièrement, je suis nouveau ici et je trouve ce site très bien fait pour tous les débutants ! entre autre moi-même :) .

Voici ma question.
Je suis nouveau dans le développement de logiciel et j'essai de faire une application VB Windows Form.

En gros, j'essai d'aller retrouver un string qui s'appel "title" et un 2ème string qui s'appel "fin" et j'aimerais récupéré les strings entre les 2 valeurs.

Exemple:
title: Bonjour je suis nouveau ici ! fin

alors mon output serait: Bonjour je suis nouveau ici !

Ensuite j'aimerais écrire dans un fichier .txt le "Bonjour je suis ici !" ...

Est-ce possible ?

Merci d'avance pour votre aide ! :)

Code:

1
2
3
4
5
6
7
8
Dim InputString As String = "title: Bonjour je suis nouveau ici ! fin" 
Dim TitleIndex As integer =  InputString.IndexOf("title") 
Dim FinIndex   As integer =  InputString.IndexOf("fin") 
Dim OutPut As String = "" 
If TitleIndex>=0 And FinIndex>=TitleIndex Then 
    OutPut=Input.SubString(TitleIndex+"title".Length,FinIndex-TitleIndex-"title".Length) 
End If
System.IO.File.WriteAllText("c:\temp\MyTest.txt",OutPut)

Merci Graffito !!

Petite erreur minuscule dans le code, mais merci beaucoup c'est grandement apprécié ! :)

Code:

1
2
3
4
5
6
7
8
9
Dim InputString As String = "title: Bonjour je suis nouveau ici ! fin" 
Dim TitleIndex As integer =  InputString.IndexOf("title") 
Dim FinIndex   As integer =  InputString.IndexOf("fin") 
Dim OutPut As String = "" 
If TitleIndex>=0 And FinIndex>=TitleIndex Then 
    OutPut=InputString.SubString(TitleIndex+"title".Length,FinIndex-TitleIndex-"title".Length) 
End If
System.IO.File.WriteAllText("c:\temp\MyTest.txt",OutPut)