Need some help 'strcat'ing parts of a sublist and replacing that into the original list

[MHultgren]

I started with one of Peter's AU06 routines to create a table (TableMagic.LSP - great code Peter!)

and what I need to do is combine list positions 3,4,&5 and 6,7 & 8, add some extra text to the string,
then create a new list with the same position 1 & 2 entries and add the resultant strings to convert the original list from an 8 entity list to a 4 entity list

Here is one line of the external text file I am working with:

10176,0+00.00,37,49,56.35,109,58,0.98



here is part of the code that I am trying to wrap my head around.

; Utility to import a comma separated ascii text file into a list of sublists

(defun UELS:CSVFiletoList (strFilename   ; String Filename
                           strChar       ; String Delimiter
                           /
                           lstOfSublists ; List of Sublists
                           strText       ; String of Delimited Strings
                           fil)          ; File ASCII Comma Separated Values
 (setq fil (open strFilename "r"))
 (while (setq strText (read-line fil))
  (setq lstOfSublists (cons (UELS:CSVStringToList strText strChar) lstOfSublists)))
  (close fil)
 (reverse lstOfSublists)
)

; Parsing a textstring to a list.

(defun UELS:CSVStringToList  (strText     ; String of Delimited strings
                              strChar     ; String Delimiter
                              /
                              intPosition ; Integer String Character Index
                              lstStrings) ; List of Strings
 (while (setq intPosition (vl-string-search strChar strText 0))
  (setq lstStrings  (cons (substr strText 1 intPosition) lstStrings)
        strText     (substr strText (+ intPosition 1 (strlen strChar)))))
 (reverse (cons strText lstStrings))
)

;**************************************************************************************
;**************************************************************************************

;This function concatenates the Latitude and longitude values

(defun UELS:LatLongComp (/ lstSublist)
  (setq strCompressLat (strcat "N" (nth 2 lstSublist) "\U+00B0" (nth 3 lstSublist) "\'" (nth 4 lstSublist) "\""))
  (setq strCompressLong (strcat "W" (nth 5 lstSublist) "\U+00B0" (nth 6 lstSublist) "\'" (nth 7 lstSublist) "\""))
)

[Opie]

In your UELS:LatLongComp sub-routine, add a list at the end to combine the two generated strings in the order you need. Then append the resulting list with a new list consisting of the first two elements of the initial list.

[MHultgren]

Thanks Opie!
Sometimes I just overthink things.

[MHultgren]

OK Opie,
This is what I have so far, but I am getting an error: bad Function in Expression.
What am I missing?

This is inside
(mapcar 'lambda (lstSublist

(list (nth 0 lstSublist)
		    (nth 1 lstSublist)
		    (strcat ("N" (nth 2 lstSublist)
				 (itoa "\%%d")
				 (nth 3 lstSublist)
				 "\'"
				 (nth 4 lstSublist)
				 "\'\'"
			    )
		    )
		     (strcat ("W" (nth 5 lstSublist)
				 (itoa "\%%d")
				 (nth 6 lstSublist)
				 "\'"
				 (nth 7 lstSublist)
				 "\'\'"
			    )
		    )
	      )

[Opie]

You mentioned previously this consisted all of strings. Why are you using the itoa function to convert a string, "\%%d", to a string? It only works for converting integers to strings. Once that is corrected, you will need to look at your argument for the strcat function. You are supplying a set of parenthesis for each, which do not return a string. The strcat function expects a string.

Try this:

	   (list (nth 0 lstSublist)
		 (nth 1 lstSublist)
		 (strcat "N" (nth 2 lstSublist)
				 "\%%d"
				 (nth 3 lstSublist)
				 "\'"
				 (nth 4 lstSublist)
				 "\'\'"
			    
		    )
		 (strcat "W" (nth 5 lstSublist)
				 "\%%d"
				 (nth 6 lstSublist)
				 "\'"
				 (nth 7 lstSublist)
				 "\'\'"
			    
		    )
	      )

[MHultgren]

Thanks Opie,
Been a few years since I did anything with LISP and needed to build something quick and easy for users.