تحويل الأحرف كاملة العرض إلى أحرف نصف عرض ، وتحويل أحرف نصف عرض إلى أحرف كاملة العرض
<٪
FunctionDsconvert (VString ، VFLAG)
عندما يكون RemvFlag 0 ، فهذا يعني أنه يتحول من العرض الكامل إلى نصف العرض ، وعندما يكون آخر ، فإنه يعني أنه يتحول من نصف العرض إلى العرض الكامل
Dimi ، tmpsinglecharaasc ، tempresult ، sascstring ، dascstring
SASCSTRING = "1،2،3،4،5،6،7،8،14،15،16،17،18،19،20،21،22،23،24،25،26،27،33،34،35،36،37،38،39،40 ، 41،42،43،44،45،46،47،48،50،50،52،53،54،55،56،57،58،59،60،61،62،63،64،65،66،67،68،69،71،71،72 ، 73،74،75،76،77،78،79،80،81،82،83،84،85،86،87،88،89،90،91،92،93،94،95،96،97،98،99،100،101،102،1 03،104،105،106،107،108،109،110،111،112،113،114،115،116،117،118،119،120،121،122،123،124،125،126 "
dascstring = "-23679 ، -23678 ، -23677 ، -23676 ، -23675 ، -23674 ، -23673 ، -23672 ، -23666 ، -23665 ، -23664 ، -2363 ، -23662 ، -23661 ، -23660 ، -23659 ، -23658 ، -23657 ، -23656 ، -23655 ، -23654 ، -23653 ، -23647 ، -23646 ، -23645 ، -23644 ، -23643 ، -23644 2 ، -23641 ، -23640 ، -23639 ، -23638 ، -23637 ، -23636 ، -23635 ، -23634 ، -23633 ، -23632 ، -23631 ، -23630 ، -23629 ، -23628 ، -23 627 ، -23626 ، -23625 ، -23624 ، -23623 ، -23622 ، -23621 ، -23620 ، -23619 ، -23618 ، -23617 ، -23616 ، -23615 ، -23614 ، -23613 ، -23613 ، -23616 ، -23615 ، -23614 ، -23613 ، -23613 ، 23612 ، -23611 ، -23610 ، -23609 ، -23608 ، -23607 ، -23606 ، -23605 ، -23604 ، -23603 ، -23602 ، -23601 ، -23600 ، -23599 ، -23598 ، -23597 ، -23596 ، -23595 ، -23594 ، -23593 ، -23592 ، -23591 ، -23590 ، -23589 ، -23588 ، -23587 ، -23586 ، -23585 ، -23584 ، -2355 83 ، -23582 ، -23581 ، -23580 ، -23579 ، -23578 ، -23577 ، -23576 ، -23575 ، -23574 ، -23573 ، -23572 ، -23571 ، -23570 ، -23569 ، -2 3568 ، -23567 ، -23566 ، -23565 ، -23564 ، -23563 ، -23562 ، -23561 ، -23560 ، -23559 ، -23558 ، -23557 ، -2355 ، -23555 ، -2355 ""
tempresult = ""
iflen (vString) <= 0thenresponse.write "parameterserror! pleaseCheckyourParameters!": reponse.end: exitfunction
fori = 1tolen (vString)
tmpsinglecharaasc = ASC (Mid (vString ، i ، 1))
IFVFLAG = 0then
Ifinstr (dascstring ، tmpsinglecharaasc) <> 0andlen (CSTR (TMPSingleCharaasc)) = 6then
Tempresult = Tempresult & CHR (TMPSinglecharaasc+23680)
آخر
Tempresult = Tempresult & CHR (TMPSingleCharaascy)
Endif