Code Snippets

C# Source Code

Welcome to Dream.In.Code
	Become a C# Expert! Join 244,065 C# Programmers for FREE! Get instant access to thousands of C# experts, tutorials, code snippets, and more! There are 1,386 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: 5,127

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 = 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