Ajouter des caractères dans un string

**Janny** · 19/06/2007, 11h43

à tous !!
J'ai un petit souci que je n'arrive pas à résoudre....

J'ai une requête qui sélectionne le nom d'un document (string), la version majeure (integer), la version mineure (integer), la version révision (integer).

Le nom du document est de ce format : nom.doc
Je souhaiterai insérer les versions à l'intérieur
si version majeure = 1, version mineure = 2 et version révision = 0, je souhaiterai stocker dans une variable cela : nom_1_2_0.doc

j'arrive à insérer les numéros de versions avant et après le nom du document mais pas à l'intérieur !!

Si quelqu'un peut m'aider....

Merci d'avance

**Chad11** · 19/06/2007, 11h50

Code :

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

1
2
3
4
5
Mineur = MsTr
Majeur = StrMjR
Nom = StrName
Dim dd as string
dd = Nom & "_" & StrMjR & "_" & msTr & ".doc"

jespere que ca taideras...sinon poste un bout de ton code

**Janny** · 19/06/2007, 11h56

Salut !

Le souci c'est que l'extension est dans le nom et qu'elle n'est jamais la même.
Donc ton bout de code ne marche pas

mais merci quand même

**Chad11** · 19/06/2007, 12h00

Pourrais tu me montrer un bout de ton code comme ca je pourrais t'aider...

**avigeilpro** · 19/06/2007, 12h22

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim NomFichTotal As String
Dim Nom As String
Dim PosExt As Integer
Dim Ext As String
 
NomFichTotal = "MonDoc.doc"
PosExt = InStrRev(NomFichTotal,".")
Ext = Mid(NomFichTotal ,PosExt)
Nom = Mid(NomFichTotal ,1,PosExt-1)
 
NomFichTotal = Nom & "1_2_0" & Ext

(pas testé car je ne suis pas chez moi

)

**Janny** · 19/06/2007, 12h32

voilà mon code :

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
 
dim strquery as string
dim myrec as recordset
dim nom_version as string
 
strquery = "SELECT id_document, document, tbl_001_document.idx_document, version_majeure, version_mineure, version_revision " & _
                "FROM tbl_001_document, tbl_001_version " & _
                "WHERE id_document = tbl_001_version.idx_document ;"
'fonction de la librairie qui exécute la requete
If Not mod_sql.sql_open_recordset_v1(strquery, myrec, erreur) Then Err.Raise 513, , erreur
 
'tant qu'il y a des résultats
While not myrec.EOF
     'je récupère le nom du document sans l'extension mais je n'est pas trouvé pour ajouter les versions et reprendre l'extension
     nom_version = right(myrec.fields(1),InStr(myrec.fields(1), ".") -1)
     'ensuite il faudrai que j'insère dans une table le nom avec version
     myrec.MoveNext
Wend

je ne pense pas que cela va beaucoup t'aider étant donné que j'arrive pas à avancer....