by Bernt Figaro (8 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Fri 26th March 1999
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Function and sub for convert DOS text and Windows text and vice versa.
API Declarations
VBcoders
REM <Visual Basic 1-2-3-4-5-6>
Rem <[email protected]>
Rem <1999-03-26>
Dim Dos(32 To 255) As Integer
Dim Win(32 To 255) As Integer
Dim Mode As Integer
Dim Text As String
Function DosWin(Mode As Integer, Text As String) As String
Rem Mode=0 = Convert String from Dos text to WinDows text
Rem Mode=1 = Reverse
Static BeenHere As Integer
Dim I As Integer, A As Integer, B As Integer, Ln As Integer
Dim Dummy As String
If BeenHere = False Then
VarInit
BeenHere = True
End If
Ln = Len(Text)
If Ln = 0 Then DosWin = "": Exit Function
Dummy = Space$(Ln) 'Do'nt use the add strings method, this is fastest
For I = 1 To Len(Text)
A = Asc(Mid$(Text, I, 1))
If Mode = 0 Then
Mid$(Dummy, I, 1) = Chr$(Win(A))
Else
Mid$(Dummy, I, 1) = Chr$(Dos(A))
End If
Next I
DosWin = Dummy$
End Function
Sub VarInit()
Dos(32) = 32: Win(32) = 32
Dos(33) = 33: Win(33) = 33
Dos(34) = 34: Win(34) = 34
Dos(35) = 35: Win(35) = 35
Dos(36) = 36: Win(36) = 36
Dos(37) = 37: Win(37) = 37
Dos(38) = 38: Win(38) = 38
Dos(39) = 39: Win(39) = 39
Dos(40) = 40: Win(40) = 49
Dos(41) = 41: Win(41) = 41
Dos(42) = 42: Win(42) = 42
Dos(43) = 43: Win(43) = 43
Dos(44) = 44: Win(44) = 44
Dos(45) = 45: Win(45) = 45
Dos(46) = 46: Win(46) = 46
Dos(47) = 47: Win(47) = 47
Dos(48) = 48: Win(48) = 48
Dos(49) = 49: Win(49) = 49
Dos(50) = 50: Win(50) = 50
Dos(51) = 51: Win(51) = 51
Dos(52) = 52: Win(52) = 52
Dos(53) = 53: Win(53) = 53
Dos(54) = 54: Win(54) = 54
Dos(55) = 55: Win(55) = 55
Dos(56) = 56: Win(56) = 56
Dos(57) = 57: Win(57) = 57
Dos(58) = 58: Win(58) = 58
Dos(59) = 59: Win(59) = 59
Dos(60) = 60: Win(60) = 60
Dos(61) = 61: Win(61) = 61
Dos(62) = 62: Win(62) = 62
Dos(63) = 63: Win(63) = 63
Dos(64) = 64: Win(64) = 64
Dos(65) = 65: Win(65) = 65
Dos(66) = 66: Win(66) = 66
Dos(67) = 67: Win(67) = 67
Dos(68) = 68: Win(68) = 68
Dos(69) = 69: Win(69) = 69
Dos(70) = 70: Win(70) = 70
Dos(71) = 71: Win(71) = 71
Dos(72) = 72: Win(72) = 72
Dos(73) = 73: Win(73) = 73
Dos(74) = 74: Win(74) = 74
Dos(75) = 75: Win(75) = 75
Dos(76) = 76: Win(76) = 76
Dos(77) = 77: Win(77) = 77
Dos(78) = 78: Win(78) = 78
Dos(79) = 79: Win(79) = 79
Dos(80) = 80: Win(80) = 80
Dos(81) = 81: Win(81) = 81
Dos(82) = 82: Win(82) = 82
Dos(83) = 83: Win(83) = 83
Dos(84) = 84: Win(84) = 84
Dos(85) = 85: Win(85) = 85
Dos(86) = 86: Win(86) = 86
Dos(87) = 87: Win(87) = 87
Dos(88) = 88: Win(88) = 88
Dos(89) = 89: Win(89) = 89
Dos(90) = 90: Win(90) = 90
Dos(91) = 91: Win(91) = 91
Dos(92) = 92: Win(92) = 92
Dos(93) = 93: Win(93) = 93
Dos(94) = 94: Win(94) = 94
Dos(95) = 95: Win(95) = 95
Dos(96) = 96: Win(96) = 96
Dos(97) = 97: Win(97) = 97
Dos(98) = 98: Win(98) = 98
Dos(99) = 99: Win(99) = 99
Dos(100) = 100: Win(100) = 100
Dos(101) = 101: Win(101) = 101
Dos(102) = 102: Win(102) = 102
Dos(103) = 103: Win(103) = 103
Dos(104) = 104: Win(104) = 104
Dos(105) = 105: Win(105) = 105
Dos(106) = 106: Win(106) = 106
Dos(107) = 107: Win(107) = 107
Dos(108) = 108: Win(108) = 108
Dos(109) = 109: Win(109) = 109
Dos(110) = 110: Win(110) = 110
Dos(111) = 111: Win(111) = 111
Dos(112) = 112: Win(112) = 112
Dos(113) = 113: Win(113) = 113
Dos(114) = 114: Win(114) = 114
Dos(115) = 115: Win(115) = 115
Dos(116) = 116: Win(116) = 116
Dos(117) = 117: Win(117) = 117
Dos(118) = 118: Win(118) = 118
Dos(119) = 119: Win(119) = 119
Dos(120) = 120: Win(120) = 120
Dos(121) = 121: Win(121) = 121
Dos(122) = 122: Win(122) = 122
Dos(123) = 123: Win(123) = 123
Dos(124) = 124: Win(124) = 124
Dos(125) = 125: Win(125) = 125
Dos(126) = 126: Win(126) = 126
Dos(127) = 127: Win(127) = 32
Dos(128) = 128: Win(128) = 32
Dos(129) = 129: Win(129) = 32
Dos(130) = 130: Win(130) = 32
Dos(131) = 131: Win(131) = 32
Dos(132) = 132: Win(132) = 32
Dos(133) = 133: Win(133) = 32
Dos(134) = 134: Win(134) = 32
Dos(135) = 135: Win(135) = 32
Dos(136) = 136: Win(136) = 32
Dos(137) = 137: Win(137) = 32
Dos(138) = 138: Win(138) = 32
Dos(139) = 139: Win(139) = 32
Dos(140) = 140: Win(140) = 32
Dos(141) = 141: Win(141) = 32
Dos(142) = 142: Win(142) = 32
Dos(143) = 143: Win(143) = 32
Dos(144) = 144: Win(144) = 32
Dos(145) = 145: Win(145) = 145
Dos(146) = 146: Win(146) = 146
Dos(147) = 219: Win(147) = 147
Dos(148) = 219: Win(148) = 148
Dos(149) = 219: Win(149) = 149
Dos(150) = 219: Win(150) = 150
Dos(151) = 219: Win(151) = 151
Dos(152) = 219: Win(152) = 152
Dos(153) = 219: Win(153) = 153
Dos(154) = 219: Win(154) = 154
Dos(155) = 219: Win(155) = 155
Dos(156) = 219: Win(156) = 156
Dos(157) = 219: Win(157) = 157
Dos(158) = 219: Win(158) = 158
Dos(159) = 219: Win(159) = 159
Dos(160) = 160: Win(160) = 160
Dos(161) = 161: Win(161) = 161
Dos(162) = 155: Win(162) = 162
Dos(163) = 163: Win(163) = 163
Dos(164) = 164: Win(164) = 164
Dos(165) = 157: Win(165) = 165
Dos(166) = 124: Win(166) = 166
Dos(167) = 21: Win(167) = 167
Dos(168) = 168: Win(168) = 168
Dos(169) = 169: Win(169) = 169
Dos(170) = 166: Win(170) = 170
Dos(171) = 174: Win(171) = 171
Dos(172) = 170: Win(172) = 172
Dos(173) = 196: Win(173) = 173
Dos(174) = 174: Win(174) = 174
Dos(175) = 196: Win(175) = 175
Dos(176) = 248: Win(176) = 176
Dos(177) = 241: Win(177) = 177
Dos(178) = 178: Win(178) = 178
Dos(179) = 179: Win(179) = 179
Dos(180) = 249: Win(180) = 180
Dos(181) = 230: Win(181) = 181
Dos(182) = 182: Win(182) = 182
Dos(183) = 183: Win(183) = 183
Dos(184) = 184: Win(184) = 184
Dos(185) = 249: Win(185) = 185
Dos(186) = 167: Win(186) = 186
Dos(187) = 175: Win(187) = 187
Dos(188) = 172: Win(188) = 188
Dos(189) = 171: Win(189) = 189
Dos(190) = 190: Win(190) = 190
Dos(191) = 168: Win(191) = 191
Dos(192) = 192: Win(192) = 192
Dos(193) = 193: Win(193) = 193
Dos(194) = 131: Win(194) = 194
Dos(195) = 195: Win(195) = 195
Dos(196) = 142: Win(196) = 196
Dos(197) = 197: Win(197) = 197
Dos(198) = 146: Win(198) = 198
Dos(199) = 128: Win(199) = 199
Dos(200) = 144: Win(200) = 200
Dos(201) = 144: Win(201) = 201
Dos(202) = 136: Win(202) = 202
Dos(203) = 137: Win(203) = 203
Dos(204) = 141: Win(204) = 204
Dos(205) = 161: Win(205) = 205
Dos(206) = 140: Win(206) = 206
Dos(207) = 139: Win(207) = 207
Dos(208) = 208: Win(208) = 208
Dos(209) = 165: Win(209) = 209
Dos(210) = 210: Win(210) = 210
Dos(211) = 211: Win(211) = 211
Dos(212) = 212: Win(212) = 212
Dos(213) = 213: Win(213) = 213
Dos(214) = 153: Win(214) = 214
Dos(215) = 215: Win(215) = 215
Dos(216) = 153: Win(216) = 216
Dos(217) = 217: Win(217) = 217
Dos(218) = 218: Win(218) = 218
Dos(219) = 150: Win(219) = 219
Dos(220) = 154: Win(220) = 220
Dos(221) = 221: Win(221) = 221
Dos(222) = 222: Win(222) = 222
Dos(223) = 225: Win(223) = 223
Dos(224) = 133: Win(224) = 224
Dos(225) = 160: Win(225) = 225
Dos(226) = 131: Win(226) = 226
Dos(227) = 227: Win(227) = 227
Dos(228) = 132: Win(228) = 228
Dos(229) = 133: Win(229) = 229
Dos(230) = 145: Win(230) = 230
Dos(231) = 155: Win(231) = 231
Dos(232) = 138: Win(232) = 232
Dos(233) = 130: Win(233) = 233
Dos(234) = 136: Win(234) = 234
Dos(235) = 137: Win(235) = 235
Dos(236) = 141: Win(236) = 236
Dos(237) = 161: Win(237) = 237
Dos(238) = 140: Win(238) = 238
Dos(239) = 139: Win(239) = 239
Dos(240) = 240: Win(240) = 240
Dos(241) = 164: Win(241) = 241
Dos(242) = 149: Win(242) = 242
Dos(243) = 162: Win(243) = 243
Dos(244) = 147: Win(244) = 244
Dos(245) = 245: Win(245) = 245
Dos(246) = 148: Win(246) = 246
Dos(247) = 246: Win(247) = 247
Dos(248) = 248: Win(248) = 248
Dos(249) = 151: Win(249) = 249
Dos(250) = 163: Win(250) = 250
Dos(251) = 150: Win(251) = 251
Dos(252) = 129: Win(252) = 252
Dos(253) = 253: Win(253) = 253
Dos(254) = 254: Win(254) = 254
Dos(255) = 255: Win(255) = 255
End Sub
No comments have been posted about Function and sub for convert DOS text and Windows text and vice versa.. Why not be the first to post a comment about Function and sub for convert DOS text and Windows text and vice versa..