แปลงอักขระความกว้างเต็มรูปแบบเป็นอักขระครึ่งความกว้างแปลงอักขระครึ่งความกว้างเป็นอักขระเต็มรูปแบบ
-
functionsconvert (vstring, vflag)
เมื่อ remvflag เป็น 0 นั่นหมายความว่ามันจะเปลี่ยนจากความกว้างเต็มรูปแบบเป็นครึ่งความกว้างและเมื่อเป็นสิ่งอื่นก็หมายความว่ามันจะเปลี่ยนจากความกว้างครึ่งเป็นความกว้างเต็มรูปแบบ
DiMi, Tmpsinglecharaasc, Tempresult, Sascstring, Dascstring
SASCSTRING = "1,2,3,4,5,6,7,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,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,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,99,91,91,91,91,91,91,91,91,90,91,90,90,91,90,90,91,90,99,90,91, 03,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,126,121,121,122,122,122,1223,124
dascstring = "-23679, -23678, -23677, -23676, -23675, -23674, -23673, -23672, -23666, -23665, -23664, -236663 -23661, -23660, -23659, -23658, -23657, -23656, -23655, -23654, -23653, -23647, -23646, -23645 2, -23641, -23640, -23639, -23638, -23637, -23636, -23635, -23634, -23633, -23632, -23631, -23630, -23629, -23632 627, -23626, -23625, -23624, -23623, -23622, -23621, -23620, -23619, -23618, -23617, -23616, -23615, -23614 23612, -23611, -23610, -23609, -23608, -23607, -23606, -23605, -23604, -23603, -23602, -23601, -23600, -23599, -23602 , -23597, -23596, -23595, -23594, -23593, -23592, -23591, -23590, -23589, -23588, -23587, -23586, -23585 83, -23582, -23581, -23580, -23579, -23578, -23577, -23576, -23575, -23574, -23573, -23572, -23571, -23570 3568, -23567, -23566, -23565, -23564, -23563, -23562, -23561, -23560, -23559, -23558, -23557, -23556
tempresult = ""
iflen (vstring) <= 0thenResponse.write "parameterSerror! pleasecheckyourparameters!": response.end: exitfunction
fori = 1tolen (vstring)
tmpsinglecharaasc = asc (mid (vstring, i, 1))
ifvflag = 0 แล้ว
ifinstr (dascstring, tmpsinglecharaasc) <> 0andlen (cstr (tmpsinglecharaasc)) = 6 จากนั้น
Tempresult = Tempresult & Chr (tmpsinglecharaasc+23680)
อื่น
Tempresult = Tempresult & Chr (tmpsinglecharaasc)
endif