برگزیده های پرشین تولز

ويرايشگر متن فارسي UTF-8 با VB

A

amirnezhad

کاربر تازه وارد
تاریخ عضویت
26 جولای 2003
نوشته‌ها
136
لایک‌ها
0
سلام
من همين الان يه پروژه در ارتباط با يك ويرايشگر متن فارسي با ويژوال بيسيك رو تموم كردم كه فابليت convert متن به صورت UTF-8 رو هم داره.
گذاشتمش توي بخش محصولات سايتم (source و نسخه قابل نصب) فكر مي كنم اگه يه نگاهي بهش بكنين بدتون نياد ;)
البته يه فكر هاي ديگه اي توي سرم هست كه انشالله توي نسخه هاي بعدي ;)
 
H

hasanagha

کاربر تازه وارد
تاریخ عضویت
19 سپتامبر 2003
نوشته‌ها
9
لایک‌ها
0
آقای amirnezhad
ما که چیزی پیدا نکردیم. اینجور چیزها رو آدرس بدین تا راحت تر بشه پیدا کرد
اگر هم آدرس اینه که نوشتید <a href='http://www.webilix.com' target='_blank'>http://www.webilix.com</a> قربانت گردم ما که چشممان کور شد و چیزی پیدا نکردیم.
اگر رحم به چشم خودتان نمی کنید به چشمان نابینای ما رحم کنید
 
A

amirnezhad

کاربر تازه وارد
تاریخ عضویت
26 جولای 2003
نوشته‌ها
136
لایک‌ها
0
آقای amirnezhad
ما که چیزی پیدا نکردیم. اینجور چیزها رو آدرس بدین تا راحت تر بشه پیدا کرد
اگر هم آدرس اینه که نوشتید <a href='http://www.webilix.com' target='_blank'>http://www.webilix.com</a> قربانت گردم ما که چشممان کور شد و چیزی پیدا نکردیم.
اگر رحم به چشم خودتان نمی کنید به چشمان نابینای ما رحم کنید
کلیک کنید تا بازشود...

ببخشيد ;)

براي ديدن اين نرم افزار مي تونيد از لينك محصولات كه توي منوهاي سمت راست هستش استفاده كنيد.
البته آدرسش هم <a href='http://products.webilix.com' target='_blank'>http://products.webilix.com</a> است.
 
H

hasanagha

کاربر تازه وارد
تاریخ عضویت
19 سپتامبر 2003
نوشته‌ها
9
لایک‌ها
0
من این یکی رو که آدرس داده بودید پیدا کردم البته حالا دیگه باید با عصا راه برم چون چشمم دیگه کار نمی کنه.
ولی یک چیز دیگه! آیا کسی یک Function سراغ نداره که بتونه یک تکست باکس را توی یک فایل Unicode سیو کنه.
دمبک و دستک و اینجور چیزا هم نیازی نست فقط یک Function ناقابل
 
A

amirnezhad

کاربر تازه وارد
تاریخ عضویت
26 جولای 2003
نوشته‌ها
136
لایک‌ها
0
من این یکی رو که آدرس داده بودید پیدا کردم البته حالا دیگه باید با عصا راه برم چون چشمم دیگه کار نمی کنه.
ولی یک چیز دیگه! آیا کسی یک Function سراغ نداره که بتونه یک تکست باکس را توی یک فایل Unicode سیو کنه.
دمبک و دستک و اینجور چیزا هم نیازی نست فقط یک Function ناقابل
کلیک کنید تا بازشود...

فكر مي كنم منظورت توي VB باشه. در اين صورت اگه source برنامه رو دانلود كني و بهش يه نگاه بكني مي توني اين توابع رو براي اين كار پيدا كني (البته گفتم توابع چون يكي نيست!)
 
iranvig

iranvig

کاربر تازه وارد
تاریخ عضویت
22 می 2003
نوشته‌ها
433
لایک‌ها
6
سن
55
آقا واقعا توپه زحمت كشيد انم با سورس خيلي عاليه .
 
F

Farsidoost

کاربر تازه وارد
تاریخ عضویت
27 دسامبر 2003
نوشته‌ها
9
لایک‌ها
0
ولي خيلي طولاني و پيچيده بود. يه اسكريپتي است كه كلا يك صفحه است و در هر محيطي كار ميكنه! ليست اسكريپ در زير است. ولي اگر سورهاي java و يا چيزهاي ديگه ميخواهيد تو كافه http://www.irandar.com ريخته نيازي به هيچ ويندوز فارسي عربي هم نداره و با هر محيطي كار ميكنه.


HTML: 
 <HTML lang="fa" dir="rtl"> 
<HEAD>
	<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
	<basefont FACE="Arial, Tahoma (arabic)" SIZE="+3" dir="rtl">
	<TITLE>Farsi Contact Page</TITLE>
	<STYLE>
.fa {COLOR: blue; font-family:Arial, Tahoma (arabic);font-size:10pt;font-weight:bold;}
	</STYLE>
 
<script language="vbscript">
dim mode
mode=1
sub FKeyDown()
 
if (window.event.shiftKey and window.event.altKey) then
if (mode=0) then mode=1
 
if (mode=1) then 
window.defaultStatus="Farsi with Farsi keyboard Mode"
else
mode=0
window.defaultStatus="English Mode"
	end if
window.event.returnValue=FALSE
exit sub
end if
window.event.returnValue=TRUE
end sub
 
'Unicode UTF-8 Mapping
sub FKeyPress()
dim key
key=window.event.keyCode
if (mode=1) then	'Farsi in Iran
	select case key
case 32: 	if (window.event.shiftKey) then
			 window.event.keyCode=8204 			'ZWNJ = 0x200C
			else
				window.event.keyCode= 32 			'SPACE = 0x20
		end if
	case 33: window.event.keyCode=33
	case 34: window.event.keyCode=1563 
	case 35: window.event.keyCode=1643 
	case 36: window.event.keyCode=0164
	case 37: window.event.keyCode=1642
case 38: window.event.keyCode=1548
	case 39: window.event.keyCode=1711
case 40: window.event.keyCode=0041
case 41: window.event.keyCode=0040
	case 42: window.event.keyCode=0042
	case 43: window.event.keyCode=0043
	case 44: window.event.keyCode=1608
	case 45: window.event.keyCode=1592
	case 46: window.event.keyCode=46
	case 47: window.event.keyCode=0047
	case 48: window.event.keyCode=1776
	case 49: window.event.keyCode=1777
	case 50: window.event.keyCode=1778
	case 51: window.event.keyCode=1779
	case 52: window.event.keyCode=1780
	case 53: window.event.keyCode=1781
	case 54: window.event.keyCode=1782
	case 55: window.event.keyCode=1783
	case 56: window.event.keyCode=1784
	case 57: window.event.keyCode=1785
	case 58: window.event.keyCode=0186
	case 59: window.event.keyCode=1603
	case 60: window.event.keyCode=1608
	case 61: window.event.keyCode=1594
	case 62: window.event.keyCode=62
	case 63: window.event.keyCode=1567
	case 64: window.event.keyCode=64
	case 65: window.event.keyCode=1572
	case 66: window.event.keyCode=1584
	case 67: window.event.keyCode=1670
	case 68: window.event.keyCode=1609
	case 69: window.event.keyCode=69
	case 70: window.event.keyCode=1573
	case 71: window.event.keyCode=1571
	case 72: window.event.keyCode=1570
	case 73: window.event.keyCode=1749
	case 74: window.event.keyCode=1577
	case 75: window.event.keyCode=0187
	case 76: window.event.keyCode=0171
	case 77: window.event.keyCode=1569
	case 78: window.event.keyCode=1569
	case 79: window.event.keyCode=93
	case 80: window.event.keyCode=91
	case 81: window.event.keyCode=1618
	case 82: window.event.keyCode=1611
	case 83: window.event.keyCode=1588
	case 84: window.event.keyCode=1617
	case 85: window.event.keyCode=1570
	case 86: window.event.keyCode=1574
	case 87: window.event.keyCode=1612
	case 88: window.event.keyCode=1740
	case 89: window.event.keyCode=1740
	case 90: window.event.keyCode=1688
	case 91: window.event.keyCode=1580
	case 92: window.event.keyCode=1688
	case 93: window.event.keyCode=1670
	case 94: window.event.keyCode=215
	case 95: window.event.keyCode=1600
	case 96: window.event.keyCode=1662
	case 97: window.event.keyCode=1588
	case 98: window.event.keyCode=1584
	case 99: window.event.keyCode=1586
	case 100: window.event.keyCode=1610
	case 101: window.event.keyCode=1579
	case 102: window.event.keyCode=1576
	case 103: window.event.keyCode=1604
	case 104: window.event.keyCode=1575
	case 105: window.event.keyCode=1607
	case 106: window.event.keyCode=1578
	case 107: window.event.keyCode=1606
	case 108: window.event.keyCode=1605
	case 109: window.event.keyCode=1605
	case 110: window.event.keyCode=1583
	case 111: window.event.keyCode=1582
	case 112: window.event.keyCode=1581
	case 113: window.event.keyCode=1590
	case 114: window.event.keyCode=1602
	case 115: window.event.keyCode=1587
	case 116: window.event.keyCode=1601
	case 117: window.event.keyCode=1593
	case 118: window.event.keyCode=1585
	case 119: window.event.keyCode=1589
	case 120: window.event.keyCode=1591
	case 121: window.event.keyCode=1594
	case 122: window.event.keyCode=1592
	case 123: window.event.keyCode=0125
	case 124: window.event.keyCode=0124
	case 125: window.event.keyCode=0123
	case 145: window.event.keyCode=1603
	end select
End If
window.event.returnValue=TRUE
end sub
</script>
</HEAD>
 
<BODY text=gold>
<BR>
<table width=90%><tr>
<td align=right>
<table align=center><tr><td valign=bottom>
	<B style="color:gold;">English</B><input type="radio" name="R1" onclick="mode=0">&nbsp;
	<B style="color:gold;">&#x0627;&#x064A;&#x0631;&#x0627;&#x0646;&#x064A;&#x0020;</B>
	<input type="radio" name="R1" onclick="mode=1" CHECKED>
</td>
</table>
 
 
</td></tr></table>
 
<CENTER>
<FORM ACTION="/Kontakt.asp" METHOD="post" name=frmReferral encoding="UTF-8" dir="rtl">
	<TABLE BORDER="0"><TR>
		<TD VALIGN="top"><STRONG>نام فرستنده</STRONG></TD>
		<TD><INPUT TYPE="text" class="fa" NAME="txtFromName" VALUE="" SIZE="20" onkeypress="FKeyPress()"></TD>
	</TR><TR>
		 <TD VALIGN="top"><b><font size=-1>آدرس پست الكترونيكي</font></b></TD>
		 <TD><INPUT TYPE="text" dir="ltr" class="fa" NAME="txtFromEmail" VALUE="" SIZE="40"></TD>
	</TR><TR>
		 <TD VALIGN="top" ALIGN="right"><STRONG>موضوع</STRONG></TD>
		 <TD><INPUT TYPE="text" class="fa" NAME="txtSubject" VALUE="" SIZE="40" onkeypress="FKeyPress()"></TD>
	</TR><TR>
		 <TD VALIGN="top" ALIGN="right"><STRONG>متن نامه</STRONG></TD>
		 <TD colspan="2"><TEXTAREA NAME="txtMessage" class="fa" COLS="60" ROWS="8" WRAP="virtual" onkeypress="FKeyPress()" onkeydown="FKeyDown()"></TEXTAREA>
	</TR><TR>
		<TD>&nbsp;</TD> 
		 <TD><INPUT TYPE="submit" class="fa" VALUE="فرستاده شود" name=subReferral>&nbsp;&nbsp;&nbsp;&nbsp;
		 <INPUT TYPE="reset" class="fa" VALUE="پاك كردن" name=rstReferral>&nbsp;&nbsp;</TD>
	</TR></TABLE>
</FORM>	 
</CENTER></BODY></HTML>
 
littlerabbit

littlerabbit

مدیر بازنشسته
کاربر فعال
تاریخ عضویت
13 جولای 2003
نوشته‌ها
678
لایک‌ها
6
سن
42
محل سکونت
Iran
سلام لطفا برنامه تو تو پست معرفي برنامه ها اضافه كن. مرسي

فرود.
 
You must log in or register to reply here.

تبلیغات متنی


بالا