تي سي إل: الفرق بين النسختين
[مراجعة غير مفحوصة] | [مراجعة غير مفحوصة] |
تم حذف المحتوى تمت إضافة المحتوى
سطر 82:
<source lang="Tcl">
set somme [expr [join $nombres +]]
</source>
* استبدال الحروف في جدول بإستعمال الأمر string:
<source lang="Tcl">
set sequence "ACGTATTACGGTCCATGAACGAATTGGGATATCGACCATGATGGAATTCTG"
puts [string map {GA R TC Y GT K AC M GC S AT W} $sequence]
</source>
* تحميل صفحة [[HTML]]:
<source lang="Tcl">
package require http
puts [http::data [http::geturl http://mini.net/tcl/540]]
</source>
* إعطاء الوقت عن طريق الخطاب الصوتي على [[Android]]:
<source lang="Tcl">
package require android
set android [android new]
set time [clock format [clock seconds] -format "%I %M %p on %A, %B %e %Y."]
android speak $time
</source>
|