.txt file wegschrijven naar een specifieke lokatie

[marcelmaas]

Beste Hofcad,

Nou werkt het goed, het bestand "ordernummer.txt" wordt nu in de map geplaatst van het ingegeven ordernummer.
Tot zover gaat het goed, alleen nu staat er in het .txt bestandje hetvolgende.

102222
"102222"   "n"   1   8   0.4   "k"


Normaal in dit bestandje alleen de onderste regel, dus op een of andere manier is er op de eerste regel nog een keer het ordernummer bij gekomen.

Groeten Marcel..

[HofCAD]

Beste Marcel,

Haal  (write-line ordno Bestand) weg, of kopieer het programma opnieuw.

Met vriendelijke groet, HofCAD CSI.

[marcelmaas]

Hi Hofcad,

Geweldig het werkt, superrrr. 

Dank je voor je hulp, hier zijn we al weer heel blij mee.!!!!


Met vriendelijke groet Marcel..

[HofCAD]

Hi Hofcad,

Geweldig het werkt, superrrr.  

Dank je voor je hulp, hier zijn we al weer heel blij mee.!!!!


Met vriendelijke groet Marcel..

Beste Marcel,

Probeer deze versie ook eens uit als julie geen projectmappen voor 2000 hebben.

Code Selecteer Uitklappen

;============================================================================
;-------Vastleggen onderhande ordernummer------------------------------------
;----------------------------------------------------------------------------
(defun order (/ dia_id einde ordno Bestand Bestandsnaam voorziening orderregel verliesfactor soortslang Koperdiameter Wanddikte)
  (Pakmode)
  (setq dia_id(load_dialog "Activering_nieuw.dcl"))
  (if (not (new_dialog "Order" dia_id))
      (exit)
  )
  (action_tile "cancel" "(setq einde t)")
  (action_tile "Ordernr" "(setq ordno $value)")
  (action_tile "Uithang" "(setq voorziening $value)")
  (action_tile "Verlies" "(setq verliesfactor $value)")
  (action_tile "Koper" "(setq Koperdiameter $value)")
  (action_tile "Dikte_wand" "(setq Wanddikte $value)")
  (action_tile "Slang" "(setq soortslang $value)")
  (mode_tile "Ordernr" 2)
  (start_dialog)
  (done_dialog)
  (unload_dialog dia_id)
  (if (/= einde t)
  (progn
  (a_Tekst "uit")
  (setq map (findfile (strcat "c:\\Projecten\\" (strcat "20" (substr ordno 1 2)))
  "\\" ordno "~1\\Tekeningen\\Activering")))
  (if (not map) (ai_abort "Geen Map" "De projectmap moet nog aangemaakt worden."))
  (setq Bestandsnaam (strcat map "\\$ordernummer.txt"))
  (setq Bestand (a_PT_open Bestandsnaam "w"))
  (prin1 ordno Bestand)
  (princ "   " Bestand)
  (prin1 voorziening Bestand)
  (princ "   " Bestand)
  (princ verliesfactor Bestand)
  (princ "   " Bestand)
  (princ Koperdiameter Bestand)
  (princ "   " Bestand)
  (princ Wanddikte Bestand)
  (princ "   " Bestand)  
  (prin1 soortslang Bestand)
  (close Bestand)
  (Zetmode))
  (a_Tekst "aan"))
  )

Met vriendelijke groet, HofCAD CSI.

PS In de vorige versie moet je nog  (unload_dialog dia_id) de (princ ordno) weghalen.

[marcelmaas]

Hi Hofcad,

We hebben volgens mij niet veel projecten van voor 2000 waar we dit nodig zouden hebben.
Maar mag ik vragen wat er anders of beter aan is..?


groeten Marcel..

[HofCAD]

Beste Marcel,

In de eerste versie moet je elk jaar de waarde van Ejaar veranderen (ophogen),
en in de laatste versie gaat het programma meteen in het goede jaar zoeken.

Met vriendelijke groet, HofCAD CSI.

PS In de vorige versie moet je nog  (unload_dialog dia_id) de (princ ordno) weghalen.

[marcelmaas]

Hi Hofcad,

"unload_dialog dia_id" zie ik in jou laatste 2 bestanden staan, maar "princ ordno" zie ik nergens staan?

Groeten Marcel..

[HofCAD]

Hi Hofcad,

"unload_dialog dia_id" zie ik in jou laatste 2 bestanden staan, maar "princ ordno" zie ik nergens staan?

Groeten Marcel..

Beste Marcel,

Dat klopt, omdat ik het daar al reeds heb weggehaald.
In je Antwoord #14 Gepost op: Vandaag om 15:43:11 » zie je het getal 060045 staan,
dat kwam omdat er toen nog (princ ordno) instond.


Met vriendelijke groet, HofCAD CSI.

[marcelmaas]

Hi Hofcad,

Ik snap hem, thanks voor de hulp.
Voor het weekend opgelost, altijd fijn..  


Groeten Marcel..

[HofCAD]

Beste Forumgebruikers,

In http://www.cadsite.be/smf/index.php/topic,2900.msg14857.html#msg14857
heb ik gesproken over X-files en de Twilight Zone.
Verder vroeg ik me toen af:
Is Julien, Bart of Joop familie van Fox Mulder(David Duchovny),
of is een van hen getrouwd met Dana Scully?
Nu ben ik weer iets bovennatuurlijks tegenkomen, in een van mijn dromen
vroeg een moderator zich af waarom ik een tilde(~) gebruik als 'Wildcard character'
in plaats van een asterix(*) in:

Code Selecteer Uitklappen

(findfile "M:\\Projecten\\2010\\100060~1\\Tekeningen\\Activering")
Het antwoord is simpel, ik gebruik de tilde niet als 'Wildcard character' maar om
de shortname van een map of een bestand te krijgen in het oude DOS formaat
van maximaal 8 karakters.
Het gebruik van een asterix als 'Wildcard character' in findfile levert niets op, omdat
het anders eventueel meerdere bestanden of mappen op zou leveren.

I Want to Believe!!!!!!!!!!!!!!!!!!!!! ...

Met vriendelijke groet, HofCAD CSI.

[bart]

Beste hofcad.
Je had hem toch gelezen dus.
ik realiseerde me dat ook een paar na mijn reactie.
En heb hem dus redelijk snel weer gewist om dat deze niet wezelijk iets toevoegde