Discussion :

[djool]

Bonjour,

Nous sommes entrain de changer de logiciel de gestion, et je me trouve confronté à un soucis pour la récupération des désignation articles.

Voila mon soucis :

Notre nouveau logiciel (PMISOFT) a 2 champs libellés principaux acceptant maximum 30 caractères. Notre ancien logiciel (APIBAT), a des champs acceptant jusqu'à 90 caractères.

J'ai récupéré les tables oracles d'APIBAT dans access afin de passer tout ça à la "moulinette".

JE souhaiterais donc extraire les 30 premiers caractères de mes désignations mais sans couper les mots. Car j'ai déjà récupéré ces 30 premiers caractères mais ça tronque les derniers mots et ce n'est pas très propre.

Donc je souhaiterais par une fonction identifier les caractères 30 et 31 de chaque chaine et si l'un de ces 2 caractères est un espace alors je peux extraire les 30 premiers caractères de cette chaine.

En revanche, si ces 2 caractères ne sont pas un espace, je voudrais extraire une chaines allant jusqu'au dernier espace compris dans les 30 premiers caractères.

Je ne sais pas si c'est très clair.

J'espère que vous pourrez me répondre

Merci d'avance

[Jean-Philippe André]

Salut,

les fonctions de manipulations de chaines d caractères à voir ici soçnt :
-Instr()
-Mid()
-Left()
-Right()

une fonction que j'utilise, à adapter évidemment

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
 
Sub Piou()
MsgBox RecupererTexteEntreBornes("Ceci est ma phrase test","Ceci","test")
End Sub
 
Function RecupererTexteEntreBornes(texte As String, textedebut As String, textefin As String) As String
Dim result As String
Dim debut As Integer
Dim fin As Integer
    debut = InStr(1, texte, textedebut)
    fin = InStr(debut + Len(textedebut), texte, textefin)
    result = ""
    If debut > 0 Then
        If fin > debut + Len(textedebut) Then
            result = Mid(texte, debut + Len(textedebut), fin - debut - Len(textedebut))
        Else
            result = Right(texte, Len(texte) - debut - Len(textedebut) + 1)
        End If
    End If
    RecupererTexteEntreBornes = result
End Function

[djool]

merci de ta réponse si rapide

J'ai reussi à identifier mais dernier espace dans chaque chaine de caractere par :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  Function LastOccurence(strString As String, strCharacter As String) As Integer
    Dim intPosition As Integer
 
     intPosition = 1
 
     While intPosition <= Len(strString) And strCharacter <> "" And InStr(intPosition, strString, strCharacter) <> 0
     intPosition = InStr(intPosition, strString, strCharacter)
     LastOccurence = intPosition
     intPosition = intPosition + 1
     Wend
     End Function

Mais bon ce n'était qu'un petit premier pas, alors je vais essayer ta fonction

Merci encore de ton aide

[djool]

Me revoila,

Voila ce que je viens de faire, ce n'est certainement pas très cartesien mais bon je fais avec mes petites connaissances et votre aide. ça marche pas trop mal en tous les cas
Mais je suis preneur de toutes amélioration.

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
 Function Libelle1(strString As String) As String
    Dim lib As String
    Dim charact1 As String
    Dim charact2 As String
    Dim strString2 As String
    Dim intpositioncharact3 As Integer
 
 
    charact1 = Mid(strString, 30, 1)
    charact2 = Mid(strString, 31, 1)
    strString2 = Mid(strString, 1, 30)
    intpositioncharact3 = LastOccurence(strString2, " ")
 
 
    If charact1 = " " Then
    lib = Mid(strString, 1, 30)
    End If
    If charact2 = " " Then
    lib = Mid(strString, 1, 30)
    End If
    If charact1 <> " " Then
    lib = Mid(strString, 1, intpositioncharact3)
    End If
   Libelle1 = lib
 
    End Function

Voila je suis resté sur la base de départ car j'aime aller jusqu'au bout de mon raisonnement même si je me plante au moins je comprends pourquoi.

[ucfoutu]

Bonsoir,

Fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Function tronquons(quoi As String, limite As Integer) As String
  Dim titi As String
  titi = Left(quoi, limite)
  If Not Mid(quoi, limite + 1, 1) = " " Then
    While Mid(titi, Len(titi), 1) <> " "
      titi = Left(titi, Len(titi) - 1)
    Wend
  End If
  tronquons = Trim(titi)
End Function

Appelable ainsi (exemple)

Code :

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

1
2
3
Dim toto As String
  toto = "abracadabra voilà le grand zèbre qui joue beaucoup à saute-mouton dans le pré du voisin."
  MsgBox tronquons(toto, 50)

devrait suffire...

[helas]

sinon

Code :

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

1
2
3
4
 
Private Function tronquons(quoi As String, limite As Integer) As String
  tronquons = Left$(quoi,instrrev(quoi," ",limite))
End Function