Je récupère dans une query un certains nombre d'enregistrement.
j'aimerais récupérer le champ CH1 de chaque enregistrement et les concaténer
dans un fichier texte séparé par un tiret ( - )
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"fth" | Je récupère dans une query un certains nombre d'enregistrement. | j'aimerais récupérer le champ CH1 de chaque enregistrement et les concaténer | dans un fichier texte séparé par un tiret ( - )
dans l'objet tu parle de créer un string et ensuite tu dis: "concaténer dans un fichier texte..."
tu veux sauver ce fichier sur le disque ou tu pensait à "dans un string" ?
"fth"
| Je récupère dans une query un certains nombre d'enregistrement.
| j'aimerais récupérer le champ CH1 de chaque enregistrement et les concaténer
| dans un fichier texte séparé par un tiret ( - )
dans l'objet tu parle de créer un string et ensuite tu dis:
"concaténer dans un fichier texte..."
tu veux sauver ce fichier sur le disque ou tu pensait à "dans un string" ?
"fth" | Je récupère dans une query un certains nombre d'enregistrement. | j'aimerais récupérer le champ CH1 de chaque enregistrement et les concaténer | dans un fichier texte séparé par un tiret ( - )
dans l'objet tu parle de créer un string et ensuite tu dis: "concaténer dans un fichier texte..."
tu veux sauver ce fichier sur le disque ou tu pensait à "dans un string" ?
"3stone" | dans l'objet tu parle de créer un string et ensuite tu dis: | "concaténer dans un fichier texte..." | | tu veux sauver ce fichier sur le disque ou tu pensait à "dans un string" ?
Parti ? ;-))
Utilise ceci qui fait les deux au besoin :o))
mavar = fnConcatField("MaTable","LeChamp") ou mavar = fnConcatField("MaTable","LeChamp","c:montexte.txt")
Function fnConcatField(sTable As String, _ sField As String, _ Optional sFile As String = "") As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim sTemp As String Dim f As Integer Set db = CurrentDb Set rs = db.OpenRecordset(sTable) Do Until rs.EOF If Len(sTemp) = 0 Then sTemp = rs(sField) Else sTemp = sTemp & "-" & rs(sField) End If rs.MoveNext Loop rs.Close: Set rs = Nothing db.Close: Set db = Nothing
If sFile <> "" Then f = FreeFile() Open sFile For Output As #f Print #f, sTemp Close #f End If fnConcatField = sTemp
"3stone"
| dans l'objet tu parle de créer un string et ensuite tu dis:
| "concaténer dans un fichier texte..."
|
| tu veux sauver ce fichier sur le disque ou tu pensait à "dans un string" ?
Parti ? ;-))
Utilise ceci qui fait les deux au besoin :o))
mavar = fnConcatField("MaTable","LeChamp")
ou
mavar = fnConcatField("MaTable","LeChamp","c:montexte.txt")
Function fnConcatField(sTable As String, _
sField As String, _
Optional sFile As String = "") As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sTemp As String
Dim f As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset(sTable)
Do Until rs.EOF
If Len(sTemp) = 0 Then
sTemp = rs(sField)
Else
sTemp = sTemp & "-" & rs(sField)
End If
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
If sFile <> "" Then
f = FreeFile()
Open sFile For Output As #f
Print #f, sTemp
Close #f
End If
fnConcatField = sTemp
"3stone" | dans l'objet tu parle de créer un string et ensuite tu dis: | "concaténer dans un fichier texte..." | | tu veux sauver ce fichier sur le disque ou tu pensait à "dans un string" ?
Parti ? ;-))
Utilise ceci qui fait les deux au besoin :o))
mavar = fnConcatField("MaTable","LeChamp") ou mavar = fnConcatField("MaTable","LeChamp","c:montexte.txt")
Function fnConcatField(sTable As String, _ sField As String, _ Optional sFile As String = "") As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim sTemp As String Dim f As Integer Set db = CurrentDb Set rs = db.OpenRecordset(sTable) Do Until rs.EOF If Len(sTemp) = 0 Then sTemp = rs(sField) Else sTemp = sTemp & "-" & rs(sField) End If rs.MoveNext Loop rs.Close: Set rs = Nothing db.Close: Set db = Nothing
If sFile <> "" Then f = FreeFile() Open sFile For Output As #f Print #f, sTemp Close #f End If fnConcatField = sTemp
Salut, non non, pas parti ... au bureau et fort demandé ( traduire dans la cas présent par: font tous ch... ! ! !)
J'essaie ta p'tite proc!
merci docteur!!!
Frederic
"3stone" wrote in message news:
re,
"3stone" | dans l'objet tu parle de créer un string et ensuite tu dis: | "concaténer dans un fichier texte..." | | tu veux sauver ce fichier sur le disque ou tu pensait à "dans un string" ?
Parti ? ;-))
Utilise ceci qui fait les deux au besoin :o))
mavar = fnConcatField("MaTable","LeChamp") ou mavar = fnConcatField("MaTable","LeChamp","c:montexte.txt")
Function fnConcatField(sTable As String, _ sField As String, _ Optional sFile As String = "") As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim sTemp As String Dim f As Integer Set db = CurrentDb Set rs = db.OpenRecordset(sTable) Do Until rs.EOF If Len(sTemp) = 0 Then sTemp = rs(sField) Else sTemp = sTemp & "-" & rs(sField) End If rs.MoveNext Loop rs.Close: Set rs = Nothing db.Close: Set db = Nothing
If sFile <> "" Then f = FreeFile() Open sFile For Output As #f Print #f, sTemp Close #f End If fnConcatField = sTemp
Salut,
non non, pas parti ... au bureau et fort demandé ( traduire dans la cas
présent par: font tous ch... ! ! !)
J'essaie ta p'tite proc!
merci docteur!!!
Frederic
"3stone" <home@sweet_home.be> wrote in message
news:etGKsReSGHA.5736@TK2MSFTNGP10.phx.gbl...
re,
"3stone"
| dans l'objet tu parle de créer un string et ensuite tu dis:
| "concaténer dans un fichier texte..."
|
| tu veux sauver ce fichier sur le disque ou tu pensait à "dans un string"
?
Parti ? ;-))
Utilise ceci qui fait les deux au besoin :o))
mavar = fnConcatField("MaTable","LeChamp")
ou
mavar = fnConcatField("MaTable","LeChamp","c:montexte.txt")
Function fnConcatField(sTable As String, _
sField As String, _
Optional sFile As String = "") As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sTemp As String
Dim f As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset(sTable)
Do Until rs.EOF
If Len(sTemp) = 0 Then
sTemp = rs(sField)
Else
sTemp = sTemp & "-" & rs(sField)
End If
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
If sFile <> "" Then
f = FreeFile()
Open sFile For Output As #f
Print #f, sTemp
Close #f
End If
fnConcatField = sTemp
Salut, non non, pas parti ... au bureau et fort demandé ( traduire dans la cas présent par: font tous ch... ! ! !)
J'essaie ta p'tite proc!
merci docteur!!!
Frederic
"3stone" wrote in message news:
re,
"3stone" | dans l'objet tu parle de créer un string et ensuite tu dis: | "concaténer dans un fichier texte..." | | tu veux sauver ce fichier sur le disque ou tu pensait à "dans un string" ?
Parti ? ;-))
Utilise ceci qui fait les deux au besoin :o))
mavar = fnConcatField("MaTable","LeChamp") ou mavar = fnConcatField("MaTable","LeChamp","c:montexte.txt")
Function fnConcatField(sTable As String, _ sField As String, _ Optional sFile As String = "") As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim sTemp As String Dim f As Integer Set db = CurrentDb Set rs = db.OpenRecordset(sTable) Do Until rs.EOF If Len(sTemp) = 0 Then sTemp = rs(sField) Else sTemp = sTemp & "-" & rs(sField) End If rs.MoveNext Loop rs.Close: Set rs = Nothing db.Close: Set db = Nothing
If sFile <> "" Then f = FreeFile() Open sFile For Output As #f Print #f, sTemp Close #f End If fnConcatField = sTemp
