Code Snippets

C# Source Code

Welcome to Dream.In.Code
	Become a C# Expert! Join 340,149 C# Programmers for FREE! Get instant access to thousands of C# experts, tutorials, code snippets, and more! There are 3,863 people online right now. Registration is fast and FREE... Join Now! Chat LIVE With a C# Expert

C# equivalent to VB6's Val() function

This is a snippet to mimic VB6's Val() function. It will string all non-numeric characters from a string and return the numeric

Submitted By: PsychoCoder

Actions:

Rating:

Views: 8,119

Language: C#

Last Modified: March 9, 2008

Instructions: Pass the method the string you want to strip. It will return only the numeric values in the provided string. You will need a reference to System.Text.RegularExpressions

Snippet

//Namespace Reference
using System.Text.RegularExpressions;
// <summary>
/// Function to mimic the Val() function in legacy VB.
/// </summary>
/// <param name="str">String we want the numeric values from</param>
/// <returns>Integer</returns>
/// <remarks>
/// I chose to go with my own functions because there really
/// isn't an intrinsic method in C# to mimic the Val() function
///</remarks>
private static int Strip(string value)
{
string returnVal = string.Empty;
MatchCollection collection = Regex.Matches(value, "\\d+");
foreach (Match match in collection)
{
returnVal += match.ToString();
}
return (int)returnVal;
}

Copy & Paste

Comments
relax 2009-05-19 04:42:01
Public Function EncodeData(ByVal StringText As String) As String On Error GoTo ErrorManager Dim Hexval As String Dim StartPos As Integer Dim NewString As String Dim StringLength As String Dim i As Integer Dim CharVal Dim Unival StringLength = Len(StringText) StartPos = 1 i = 1 NewString = "" While i 122) Or (Unival = 32)) Then Select Case Unival Case 48 NewString = NewString & CharVal Case 49 NewString = NewString & CharVal Case 50 NewString = NewString & CharVal Case 51 NewString = NewString & CharVal Case 52 NewString = NewString & CharVal Case 53 NewString = NewString & CharVal Case 54 NewString = NewString & CharVal Case 55 NewString = NewString & CharVal Case 56 NewString = NewString & CharVal Case 57 NewString = NewString & CharVal Case 47 NewString = NewString & CharVal Case 45 NewString = NewString & CharVal Case 43 NewString = NewString & CharVal Case Else NewString = NewString & "%u00" & Hexval End Select Else NewString = NewString & CharVal End If End If StartPos = StartPos + 1 i = i + 1 Wend EncodeData = NewString Exit Function ErrorManager: EncodeData = "" End Function Public Function DecodeData(ByVal toConvert As String) As String On Error GoTo ErrorManager Dim ind2 As Integer Dim ind As Integer Dim aux As String Dim aux2 As String Dim buffer As String Dim carac As String Dim c As String If (toConvert "") Then toConvert = Trim(toConvert) Do While (Len(toConvert) > 0) aux = Mid(toConvert, 1, 1) If (Len(toConvert) > 1) Then aux2 = Mid(toConvert, 2, 1) End If If (("%u" (aux & aux2)) Or (Len(toConvert) < 6)) Then buffer = buffer & Mid(toConvert, InStr(1, toConvert, aux), 1) toConvert = Mid(toConvert, (InStr(1, toConvert, aux) + 1), Len(toConvert)) Else ind = InStr(1, toConvert, "%") ind2 = InStr(ind, toConvert, "u") If (ind2 < 2) Then buffer = buffer & Mid(toConvert, 1, ind2 + 1) Else '(ind2 < 2) Then If (ind2 = 2) Then ind2 = ind + 5 Else ind2 = ind + 2 End If carac = "" carac = Mid(toConvert, ind + 1, (ind2 - ind)) carac = Replace(carac, "u", "") carac = Trim(carac) If carac = "3000" Then carac = "0020" If (Len(Trim(carac)) >= 4) Then c = "" c = ChrW(HexToDecimal(carac)) toConvert = Mid(toConvert, ind2 + 1, Len(toConvert)) buffer = buffer & c ind = InStr(1, toConvert, "%") If (ind > 1) Then buffer = buffer & Mid(toConvert, 1, ind - 1) toConvert = Mid(toConvert, ind, Len(toConvert)) ind = InStr(1, toConvert, "%") End If Else buffer = buffer & Mid(toConvert, InStr(1, toConvert, aux), 1) toConvert = Mid(toConvert, (InStr(1, toConvert, aux) + 1), Len(toConvert)) End If End If '(ind2 < 2) Then End If Loop DecodeData = buffer Else DecodeData = "" End If Exit Function ErrorManager: DecodeData = "" End Function Private Function HexToDecimal(ByVal strHex As String) As Double On Error GoTo ErrorManager Dim lngDec As Double Dim i As Integer For i = 0 To Len(strHex) - 1 lngDec = lngDec + Val("&H" & Mid(strHex, Len(strHex) - i, 1)) * 16 ^ i Next i HexToDecimal = lngDec Exit Function ErrorManager: HexToDecimal = "" End Function