Information générale
Titre:
Produce a Complex String
Versions des environnements
Network:
Windows 2000 Server
An example of my data:
Part No Recseq
854411-401 0000001
854411-402 0000002
854411-403 0000003
854411-405 0000004
854411-405 0000005
854411-405 0000006
854411-407 0000007
My desired string:
854411-401(000001),854411-402(000002),854411-403(0000003),854411-405(0000004,0000005,0000006),854411-407)
This is the code I have came up with which almost works except it puts an ")" after the first -405 recseq number and no ")" after the last -405 recseq number(any multiple part numbers).
CLEAR
SET EXACT On
partnoS = ""
partnoS2 = ""
recseqS2 = ""
openP = ""
closeP = ""
SELECT testQuery
SCAN
IF AT(ALLTRIM(testQuery.partno), partnoS2) < 1 Then
partnoS = ALLTRIM(partno)+"("
closeP = "),"
ELSE
partnoS = ""
closeP = ","
ENDIF
partnoS2 = partnoS2 + ALLTRIM(partno)
recseqS2 = recseqS2 + partnoS + recseq + closeP
ENDSCAN
? recseqS2
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement