Problema al escribir string en archivo

Hola estoy tratando de crear un script, que lo primero que hace es ecribir una cadena de texto en un archivo, esta cadena de texto debería terminar un salto de línea, pero no sé cómo hacer esto con Maxscript, lo que hace es terminarme las cadenas siempre con un 0, se me ocurrió mover el seque del archivo a la posición antes del 0 y escribir un short que representa el salto de línea, pero ahora si abro el archivo con un editor hexadecimal en vez de terminar con od oa.

Que es el salto de línea en hexa termina con od od oa.

Alguien me puede orientar:
Aquí el código:
Filename=getsavefilename caption:save as type:cf file|*.cf filename:*.cf.

Thefile= fopen filename wt.
Writestring thefile //ciber face converter file (c)2009 by jor1980.

Fseque thefile -1 #sek_current.
Writeshort thefile 2573 #signed.

Fclose thefile.

Eso suena a archivo binario, pero usa string/stringstreams.

Código:

ru = createfile (getsavefilename caption:save as types:cf file (*.cf)|*.cf). Format //ciber face converter file (c)2009 by jor1980\n\nTo:ru. Close ru

.
\nPara newline, como en notepad.
\r para carriage return, como en Wordpad.

Revisa los temas de string, stringstream, filestream en mxs help.

Tienes que revisar bien los topics de Maxscript en el archivo de ayuda. De la manera en que estas aprendiendo solo te vas a complicar.

Revisa los topics de arrays, objectsets, for loops, filestream y con pequeñas pruebas ve cómo funcionan.

Date cuenta que cuando creas un archivo, max lo abre, es decir le pide acceso a Windows, pero luego uno siempre debe cerrarlo cuando ya no se necesite hacer nada con ese archivo:
close <filestring>.

Una vez cerrado ya no puedes escribir nada en él, hasta que lo vuelvas a abrir con openfile.

También revisa lo que encuentres acerca de variables:
local and global variables.

Variable assignment.

Necesito solventar esto y el script estará terminado, alguna idea de cómo hacerlo?
Os dejo el script para que podáis revisarlo.

Tienes double, integer64 para que sean más precisas tus operación. En el caso de float extraes los enteros del número y los añades a un string y luego los decimales, estos decimales los vas convirtiendo a enteros de uno en uno moviendo el punto decimal al multiplicarlos * 10 y los vas añadiendo al mismo string.
7.523 extraes entero >> 7.
523 * 10 = 5.23 > extraes entero > 5.

Append 7. 5 > 7.5.

Repites de nuevo:
5.23 >>.23 > 2.3 > 2 >> append 7.5 2 >> 7.52.

Dependiendo de cuan largo sea el loop llega un momento donde solo obtienes ceros.

Y también tienes formattedprint.

Son números demasiado grandes, pero bueno, te pongo un ejemplo:

Código:

(tfn parsenumbers Vec = t(t local str= local Vec=#(vec.x as double, EC, y as double, EC, z as double) for s in 1 todo 3 do (t append str (formattedprint Vec[s] format.18g) append str ) str t) tlocal sstr = stringstream 3dpoder mxs \r tlocal Faces tskiptonextline sstr tfor o in objects do t(t for v in 1 todo getnumverts o do format ((parsenumbers (getvert $ v)) +\n) to:sstr for i=1 todo getnumfaces o do (t Faces=getface o i format % % %\nFaces.x Faces, y Faces, z to:sstr ) t) tsstr.
)

.

Muchas gracias por todas las molestias, al final he usado formattedprint y creó que me funciona, por lo que ha salvo de encontrar algún error inesperado el script esta terminado.

Me has ahorrado muchísimo tiempo tratando de buscar solución a mis problemas.

Valoro mucho tu ayuda, un saludo.