dim a as integer dim b as integer a=1 : b=0 

set a 1; set b 0

' ceci est une ligne entière

# ceci est une ligne entière

dim a as integer a=1 'ceci est un commentaire sur la même ligne qu'une instruction.

set a 1 ;# ceci est un commentaire sur la même ligne qu'une instruction.

dim s as string s="/data/docs/vb6_to_tcl.htm"

set s {/data/docs/vb6_to_tcl.htm}

(Pas d'équivalence)

set s "/data/docs/vb6_to_tcl.htm"

(Pas d'équivalence)

set s /data/docs/vb6_to_tcl.htm

dim s as string s = vbCrLf &"Un logiciel libre n'est pas simplement" &vbCrLf _ &" et seulement'gratuit'" &vbCrLf _ &"mais offre aussi la liberté de créer" &vbCrLf _ &"et d'utiliser les meilleurs outils." &vbCrLf

set s { Un logiciel libre n'est pas simplement 'gratuit' mais offre aussi la liberté de créer et d'utiliser les meilleurs outils. }

dim s as string dim t as string s = trim(t)

set s [string trim $t]

dim s as string dim t as string s = lcase(trim(t))

set s [string tolower [string trim $t]]

dim x as double dim y as double x = (y + 10) * 5

set x [expr {($y + 10) * 5}]

dim s as string s = s &"ajout de texte rajouté"

append s {ajout de texte}

dim s as string dim t as string dim u as string s = "Je demanderai à " & t & " de m'envoyer " & trim(u) & " ainsi que le tarif" 

set s "Ije demanderai à $t de m'envoyer [string trim $u] ainsi que le tarif"

print "bonjour"

sub ma_procedure (byval a as integer, byval b as string)
 debug.print "Je demanderai à " & b
end sub
function ma_fonction (byval a as integer, _ optional byval b as string = "Mark") _ as string
 ma_fonction = "Je demanderai à " & b
end function

proc ma_procedure {a b} {
 debug.print "Je demanderai à " b
}
proc ma_fonction {a {b Mark}} {
 return "Je demanderai à $b"
}

dim i as integer if i < 0 then i = 0 else i = i - 1

if {$i < 0} {set i 0} {incr i -1}
# option possible if {$i < 0} then {set i 0} else {incr i -1}
# une autre option if {$i < 0} then { set i 0 } else { incr i -1 } 

dim i as integer i = 1 while i < 2000 i = i * 2 wend
'option possible i = 1 do while i < 2000 i = i * 2 loop 

set i 1 while {$i < 2000} { set i [expr {$i * 2}] }

dim i as integer for i = 0 to 8 'neuf répétitions 0-8 debug.print i next

for {set i 0} {$i < 9} {incr i} { # neuf répétitions 0-8 puts $i }
# option possible for {set i 0} {$i <= 8} {incr i} { # de nouveau, neuf répétitions 0-8 puts $i } # autre option possible for {set i 1} {$i <= 9} {incr i} { # neuf répétitions 1-9 puts $i }
# encore une autre possible - moins lisible set i 1 for {} {[incr i] <= 9} {} { # neuf répétitions 1-9 puts $i } 

dim c as new collection dim o as object c.add "Mark" c.add "Roy" c.add "Brian" for each o in c debug.print o next

set c [list Mark Roy Brian] foreach o $c { puts $o }

dim s as string select case s case "John" debug.print "Mellencamp" case "Steve" debug.print "Tyler" case else debug.print "Inconnu" end select

switch -exact $s { John {puts Mellencamp} Steve {puts Tyler} default {puts Inconnu} }

on error goto capture debug.print a 'a n'a pas été déclaré. ... capture: debug.print err.number, err.description

if [catch { puts $a ;# a n' pas été initialisé } my_err] { puts "message d'erreur: $my_err" puts "stack trace: $errorInfo" # ces erreurs auraient été montrées # de toute façon par la l'interception d'erreur par défaut. } else { puts {Tout est correct.} # l'autre bloc est facultatif. }

(Pas d'équivalence)

set i [expr $e]

(Pas d'équivalence)

set s [eval $c]

(Pas d'équivalence)

source my_script.tcl

(Pas d'équivalence)

set var_name marks_age incr $var_name

dim s as string dim li as string dim f_num as integer s = "" f_num = fichierlibre open "mon_fichier.txt" for input as #f_num while not eof(f_num) line input #f_num, li s = s & li & vbCrLf wend close #f_num

set f [open mon_fichier.txt r] set s [read $f] close $f

dim a(1 to 3) as string a(1) = "Mark" a(2) = "Brian" a(3) = "Roy" 'aïe - il me faut plus d'éléments redim preserve a(1 to 10) as string a(4) = "John"

array set a [list 1 Mark 2 Brian 3 Roy] set a(4) John # maintenant différents types # de noms d'éléments dans le même tableau set a(Red) Hat set a(Linux,RedHat) 7.1

(Pas d'équivalence)

array set mon_tableau $ma_liste set ma_liste [array get mon_tableau]

dim a(1 to 100) as string dim i as integer dim f_num as integer f_num = fichierlibre open "mon_fichier.txt" for output as #f_num for i=1 to 100 print #f_num, a(i) next close #f_num 

set f [open mon_fichier.txt w] set $f [array get a] close $f

(Pas d'équivalence)

set f [open mon_fichier.txt w] puts $f [array get a blanc*] close $f

(Pas d'équivalence)

set ma_liste [lsort $ma_liste]

' nécessite une référence aux ADO ' considère que nous avons une connexion nommée conn dim rs as new recordset rs.open "select id, nom, age from peuple", _ ma_connexion, adOpenStatic ' placer ici le code rs.close set rs=nothing 

package require tclodbc # considère que nous avons une connexion nommée conn conn read a "select id, nom, age from peuple" # placer ici le code unset a ;# libération du tableau

(Pas d'équivalence)

package require http set httpTrans [http::geturl $pageURL] upvar #0 $httpTrans state if {$state(status) == {ok}} { puts $state(body) } 

(Pas d'équivalence)

regexp -all {src=['"](.+?)['"]} $body mes_images

(Pas d'équivalence)

set find {<tr>(.*?)<td>(.*?)</td><td>(.*?)</td><td>(.*?)</td>(.*?)</tr>} set replace {<tr>\1<td width=20%>\2</td><td width=40%>\3</td><td width=30%>\4</td>\5</tr>} regsub -all -nocase $exp $body $replace result puts $result

(Pas d'équivalence)

set handle [socket markhpc.dcisite.com 2000] set bienvenue [read $handle] close $handle

(Pas d'équivalence)

proc bienvenue {handle client_ip client_port} { puts $handle {Bienvenue sur notre serveur d'accueil!} close $handle } socket -server bienvenue 2000