Deleting a Variable / Application Error
Hey guys,
I'm looking for a command to close or delete a variable totally. I got the problem that when I'm trying to run my script for the second time this error is occuring:
This is the file in which the error is occuring:
Before starting this script the sample.scv file is created in this file:
I guess the variable is still saved somewhere in hypermesh and thus it can be deleted totally. I'm looking forward to your ideas.
Kind regards
Michael
Answers
-
What is the variable?
Why do you need to delete it?
0 -
Hello thin, thank you for your reply,
the variable is a .csv file which i created with the script ' '. After that i would like to open the file with the script ' --> '. Both scripts starts with a button in the utility menu.
Is it possible that the error related to the memory of Hypermesh? Perhaps the scripts are still running?
I want to close the script ' temp_in_fem.tcl ' with the command 'exit' at the end of the script. Perhaps i should use an other command?
Kind regards
Michael
0 -
No
The error is very obvious that file sample.csv is not found because $path =''
Please post your code here
I cannot open tcl file
0 -
Hey tinh,
here is the codes you asked for:
set path ''
set name ''
set temp ''
set infor ''
set infor [open C:/Users/Simon/Documents/path.txt r]
#Startinformationen einlesen
while {[gets $infor line]!=-1} {
#Variable zeilenweise auslesen
incr z
#Zeilenzahl
if {$z==1} {set path $line}
if {$z==2} {set temp $line}
if {$z==3} {set name $line}
#Informationen der Zeile 1+2 in Variable schreiben
}
#-------------------------------------------------------------------------------------------------------------------------------------
#-------------------------------------------------------------------------------------------------------------------------------------
#-------------------------------------------------------------------------------------------------------------------------------------
#Programmteil 2: Umrechnung der Knotenspannung
set data ''
set data [open $path/sample.csv r]
#Knotenspannung einlesen
while {[gets $data lines] >=0} {
#Loop für jede Zeile
if {$lines==''} {break}
#Wenn Zeile leer ist, abbruch
incr i
#Loopzähler
if {$i>=1} {
#Ab Zeile 2 in Variable schreiben
set fields [split $lines ',']
lassign $fields field1 field2
#Zeile an Komma trennen, die zwei erstellten Werte in Variablen schreiben
if {![regexp {N/A} $field2]} {
#Wenn in Feld 2 {N/A} steht wird die Zeile nicht in Variable geschrieben
if {$field2>=$temp} {
#Nur wenn Spannung größer als Referenztemperatur, einschreiben
set dif_temp [expr $field2 - $temp]
#Temperatur differenz berechnen
set a 'TEMP'
set b 3
#Parameter die zusätzlich eingeschrieben werden
set formatStr {%0s%12s%8s%8s}
#Zeichenabstand der Variablen definieren (1s = ein Lehrzeichen)
append xxx '[format $formatStr $a $b $field1 [format '%.1f' $dif_temp]]\n'
#write everything in a variable
}
}
}
}
close $data
#-------------------------------------------------------------------------------------------------------------------------------------
#-------------------------------------------------------------------------------------------------------------------------------------
#-------------------------------------------------------------------------------------------------------------------------------------
#Programmteil 3: Suchen der Einfügezeile in der .fem Datei
set fp ''
set fp [open $path/$name r]
set fem_file [read $fp]
close $fp
#öffnen der .fem Datei
set a 0
set b 0
set e 0
#setze Variablen =0
set daten [split $fem_file '\n']
foreach line_pos $daten {
#loop, jede Zeile abfragen
if {![regexp {SPC} $line_pos] || ![regexp {1} $line_pos]} {incr a} else {set b $a}
if {[regexp {SPC} $line_pos] && [regexp {1} $line_pos]} {incr e}
#Logik, für das Finden der individuelle Einfügezeile
}
set num ''
set num [expr $b + $e +1]
#Zeilennummer
#-------------------------------------------------------------------------------------------------------------------------------------
#-------------------------------------------------------------------------------------------------------------------------------------
#-------------------------------------------------------------------------------------------------------------------------------------
#Programmteil 4: Einschreiben in die .fem Datei
set daten ''
set daten [open $path/$name r]
#öffnen der .fem Datei
set y 0
#Setze Variable 0
while {[gets $daten zeile] >=0} {
#Loop einlesen
incr y
#Loopzähler
if {$y<=100} {
append zzz '$zeile\n'
}
#.fem Datei bis Zeile 100 in Variable schreiben
if {$y==$num} {
append zzz '$xxx\n'
}
#Temperaturen in Variable schreiben
if {$y>100} {
#.fem Datei ab Zeile 101 in Variable schreiben
if {![regexp {TEMP} $zeile] || ![regexp {3} $zeile]} {
#wenn bereits Temperaturen in der .fem Datei stehen, diese nicht in die Variable schreiben
append zzz '$zeile\n'
#einschreiben der .fem Zeilen
}
}
}
#-------------------------------------------------------------------------------------------------------------------------------------
#-------------------------------------------------------------------------------------------------------------------------------------
#-------------------------------------------------------------------------------------------------------------------------------------
#Programmteil 5: Outfile erzeugen / Programm schließen
set outfile [open $path/$name w]
puts $outfile $zzz
close $outfile
#outfile erzeugen und Variable einfügen
catch {unset temp outfile}
#zur sicherheit ????????
exit
#Programm schließenKind regards,
Simon
0 -
$path depends on file 'C:/Users/Simon/Documents/path.txt'
please post its content here
0 -
This is the content of the path.txt:
C:/Users/Simon/Desktop/Test_1
110
abc.fem0 -
You have to set z = 0 before the loop 'while'
0 -
Great, the program is finally working!
0
Altair Employee