modification de chaîne de caractères

Question

Bonjour tous le monde 
Après de multiple tentatives je n'arrive toujours pas à régler mon problème, je vous explique j'ai une chaîne de caractères de ce type:     

INPUT STRING: commune  
* SOLUTION 1: (AlwilAyAtu) [wilAyap_1] Al/DET+wilAy/NOUN+At/NSUFF_FEM_PL+u/CASE_DEF_NOM

je voudrais modifier cette chaîne pour avoir: 

commune/DET+NOUN+NSUFF_FEM_PL+CASE_DEF_NOM
 

merci de m'aider

NHenry · Answer

Bonjour,

Je pense qu'en split sur le caractère "/" puis pour chaque élément split sur le caractère "+" tu devrais t'en sortir.

Mon site

cs_maya77 · Answer

salut 

pour garder le coté droit de chaque ligne (c-à-d) après les ':' j'ai fait cela mais ça ne marche pas voici le code

 
Dim myfile As New StreamReader(Path, Encoding.UTF8)

        Dim cnt As String = myfile.ReadLine
        Dim cnt1 As String
        While Not (cnt Is Nothing)
            'cnt.Split(":")
            Dim Decoupe As Integer = InStr(cnt, ":")
            cnt1 = cnt.Substring(Decoupe, cnt.Length)
            cnt1 &= (cnt1 + _
                            Convert.ToChar(13)                 + _
                         
+ _
                            Convert.ToChar(10))
cnt = myfile.ReadLine
        End While

        myfile.Close()


je ne sais pas ce qui cloche 

j'utilise vb 2010 express
merci de m'aider

cs_maya77 · Answer

j'ai encore tenté de le modifier pour passer de:

INPUT STRING: commune 
* SOLUTION 1: (AlwilAyAtu) [wilAyap_1] Al/DET+wilAy/NOUN+At/NSUFF_FEM_PL+u/CASE_DEF_NOM 

à:  

commune
Al/DET+wilAy/NOUN+At/NSUFF_FEM_PL+u/CASE_DEF_NOM

avec ce code:

Dim myfile As New StreamReader(Path, Encoding.UTF8)

        Dim cnt As String = myfile.ReadLine
        Dim cnt1 As String
       

        
       
        Dim listmodifi As New List(Of String)
        While Not (cnt Is Nothing)
           
            Dim empl As Long = InStr(cnt, "/")

            If cnt1.Contains("/")Then
                cnt1 &= (Mid$(cnt, empl) + _
                                        Convert.ToChar(13) + _
                                        Convert.ToChar(10))
            Else
                cnt1 &= (Mid$(cnt, 15) + _
                                   Convert.ToChar(13) + _
                                   Convert.ToChar(10))
            End If
cnt = myfile.ReadLine
        End While

        myfile.Close()

        Dim path1 As String
        path1 = "C:\test3.txt"
        Dim sw As New StreamWriter(path1)
        sw.Write(cnt1)
        sw.Close()


mais j'ai cette erreur:
La référence d'objet n'est pas définie à une instance d'un objet. 
au niveau de: 
If cnt1.Contains("/")Then

@NHenry une idée???
merci d'avance.

cs_maya77 · Answer

hihihih  je me suis tromper il fallait écrire:  
If cnt.Contains("/")Then 
ou lieu 
If cnt1.Contains("/")Then 

cnt1 ne contient rien. donc cela marche!!!

voila merci quand même

4u4me4us · Answer

Dans l'immédiate  je te propose cela 


i=mid("commune * SOLUTION 1: (AlwilAyAtu) [wilAyap_1] Al/DET+wilAy/NOUN+At/NSUFF_FEM_PL+u/CASE_DEF_NOM ",instr(1,"commune * SOLUTION 1: (AlwilAyAtu) [wilAyap_1] Al/DET+wilAy/NOUN+At/NSUFF_FEM_PL+u/CASE_DEF_NOM ","/")+1)

i = replace("DET+wilAy/NOUN+At/NSUFF_FEM_PL+u/CASE_DEF_NOM ","/","",vbtextcompare)

i = "commune/" & i


A la fin des trois ligne i vaudra exactement la valeur de ton exemple. Si tu peux garantir que les autres chaine en la même structure c trois lignes fonctionnerons tjs. Si non il faut que tu cherche les points commun a tout t ligne pour faire la bonne routine.

NHenry · Answer

Bonjour,

maya77 à la place de :
Convert.ToChar(13) + Convert.ToChar(10)
Utilises :
Environment.NewLine

4u4me4us, ton code est en VB6, ici on est en .NET.

Mon site

4u4me4us · Answer

Toutes mes excuse 

Sans rancune ok ! suis un gentils

Modification de chaîne de caractères

7 réponses

Votre réponse

Discussions similaires