Dim bfilptr As UByte Ptr
Select Case bfilptr[i]
Case 48 To 64 : bfilptr[i] -= 6
Case 35 : bfilptr[i] = 59
Case 65 : bfilptr[i] = 32
Case 66 : bfilptr[i] = 63
Case Is > 98 : bfilptr[i] -= 5
Case Else
If ( bfilptr[i] <> 10 ) AndAlso ( bfilptr[i] <> 32 ) AndAlso ( bfilptr[i] <> 46 ) Then
bfilptr[i] -= 9
End If
End Select
Select Case bfilptr[i]
Case 48 To 64 : bfilptr[i] -= 6
Case 35 : bfilptr[i] = 59
Case 65 : bfilptr[i] = 32
Case 66 : bfilptr[i] = 63
Case Is > 98 : bfilptr[i] -= 5
Case 10, 32, 46
Case Else
bfilptr[i] -= 9
End Select
if bfilptr[i]>98 then
bfilptr[i] -= 5
else
select case as const bfilptr[i]
case 10
case 32
case 35 : bfilptr[i] = 59
case 46
case 48 To 64 : bfilptr[i] -= 6
case 65 : bfilptr[i] = 32
case 66 : bfilptr[i] = 63
case else
bfilptr[i] -= 9
end select
end if
Select Case As Const bfilptr[i]
Case 10
Case 32
Case 35 : bfilptr[i] = 59
Case 46
Case 48 To 64 : bfilptr[i] -= 6
Case 65 : bfilptr[i] = 32
Case 66 : bfilptr[i] = 63
Case 99 To 255 : bfilptr[i] -= 5
Case Else : bfilptr[i] -= 9
End Select
Is there any reason why I can't put 10, 32, 46 on the same line?
Select Case As Const bfilptr[i]
Case 10, 32, 46 ' do nothing
Case 35 : bfilptr[i] = 59
Case 48 To 64 : bfilptr[i] -= 6
Case 65 : bfilptr[i] = 32
Case 66 : bfilptr[i] = 63
Case 99 To 255 : bfilptr[i] -= 5
Case Else : bfilptr[i] -= 9
End Select