/com ### this macro concatenates 2 to 7 strings and removes all blanks and then
/com ###   saves it into the variable which was given as arg1 (in quotes)

/com ### arguments: arg1 = variable name into which the result is stored, put in quotes
/com ### arguments: arg2 = total number of single strings to be concatenated
/com ### arguments: arg3 through arg9 = single string in quotes, e.g. arg3='an '

/com ### attention: depending on the length of a single input string and/or the length
/com ###   of the resulting string, the final string ztstring1 may differ from what
/com ###   was desired, as the total length is somewhat restricted (approx 31 characters???)

/com ### example: << txtconcat,'mychar',2,'an ',' sys' >> would result in mychar='ansys'

/com ### created 2009-01-12 by Martin Herrenbruck
/com ### using Ansys 11.0 (classic)

!----------------------------------------------------------------------------!
! concatenate successively each string with the previous ones
!----------------------------------------------------------------------------!

*if,arg2,lt,8,then
  *set,ztstring1_,arg3            ! collect first string
  *do,ztcounter_, 4, arg2 + 2, 1    ! collect second to max. seventh string
    *set,ztstring3_,'arg %ztcounter_%'    ! results in 'arg 4' or 'arg 5' or 'arg 6' and so on
    *set,ztstring3_,strcomp(ztstring3_) ! remove all blanks, so we have 'arg4' or 'arg5' or 'arg6' and so on
    *set,ztstring2_,%ztstring3_%    ! save the contents of 'arg4' or 'arg5' and so on as char into ztstring2_
    *set,ztstring1_,'%ztstring1_% %ztstring2_%'  ! concatenate with previous
  *enddo
  *set,%arg1%,strcomp(ztstring1_)     ! remove all blanks from the string
*endif

!----------------------------------------------------------------------------!
! print result on the output window
!----------------------------------------------------------------------------!
/gopr
*vwrite, '### macro ','txtconcat says:',' the characterstring ',arg1
%11c %15c %20c %33c
/com ### was saved into variable %arg1%
/com ### end of macro " txtconcat.mac"
/eof