internal static bool TryParse(string Value, ref double Result)
{
CultureInfo cultureInfo = Utils.GetCultureInfo();
NumberFormatInfo numberFormat = cultureInfo.NumberFormat;
NumberFormatInfo normalizedNumberFormat = DecimalType.GetNormalizedNumberFormat(numberFormat);
Value = Utils.ToHalfwidthNumbers(Value, cultureInfo);
if (numberFormat == normalizedNumberFormat)
{
return(double.TryParse(Value, NumberStyles.Any, (IFormatProvider)normalizedNumberFormat, out Result));
}
try
{
Result = double.Parse(Value, NumberStyles.Any, (IFormatProvider)normalizedNumberFormat);
return(true);
}
catch (FormatException ex1)
{
try
{
return(double.TryParse(Value, NumberStyles.Any, (IFormatProvider)numberFormat, out Result));
}
catch (ArgumentException ex2)
{
return(false);
}
}
catch (StackOverflowException ex)
{
throw ex;
}
catch (OutOfMemoryException ex)
{
throw ex;
}
catch (ThreadAbortException ex)
{
throw ex;
}
catch (Exception ex)
{
return(false);
}
}
/// <summary>Returns a <see langword="Decimal" /> value that corresponds to the specified object and number format information. </summary>
/// <param name="Value">Required. Object to convert to a <see langword="Decimal" /> value.</param>
/// <param name="NumberFormat">A <see cref="T:System.Globalization.NumberFormatInfo" /> object that defines how numeric values are formatted and displayed, depending on the culture.</param>
/// <returns>The <see langword="Decimal" /> value that corresponds to <paramref name="Value" />.</returns>
public static Decimal FromObject(object Value, NumberFormatInfo NumberFormat)
{
if (Value == null)
{
return(Decimal.Zero);
}
IConvertible convertible = Value as IConvertible;
if (convertible != null)
{
switch (convertible.GetTypeCode())
{
case TypeCode.Boolean:
return(DecimalType.FromBoolean(convertible.ToBoolean((IFormatProvider)null)));
case TypeCode.Byte:
return(new Decimal((int)convertible.ToByte((IFormatProvider)null)));
case TypeCode.Int16:
return(new Decimal((int)convertible.ToInt16((IFormatProvider)null)));
case TypeCode.Int32:
return(new Decimal(convertible.ToInt32((IFormatProvider)null)));
case TypeCode.Int64:
return(new Decimal(convertible.ToInt64((IFormatProvider)null)));
case TypeCode.Single:
return(new Decimal(convertible.ToSingle((IFormatProvider)null)));
case TypeCode.Double:
return(new Decimal(convertible.ToDouble((IFormatProvider)null)));
case TypeCode.Decimal:
return(convertible.ToDecimal((IFormatProvider)null));
case TypeCode.String:
return(DecimalType.FromString(convertible.ToString((IFormatProvider)null), NumberFormat));
}
}
throw new InvalidCastException(Utils.GetResourceString("InvalidCast_FromTo", Utils.VBFriendlyName(Value), "Decimal"));
}
/// <summary>Returns a <see langword="Long" /> value that corresponds to the specified string. </summary>
/// <param name="Value">Required. String to convert to a <see langword="Long" /> value.</param>
/// <returns>The <see langword="Long" /> value that corresponds to <paramref name="Value" />.</returns>
public static long FromString(string Value)
{
if (Value == null)
{
return(0);
}
try
{
long i64Value = 0;
if (Utils.IsHexOrOctValue(Value, ref i64Value))
{
return(i64Value);
}
return(Convert.ToInt64(DecimalType.Parse(Value, (NumberFormatInfo)null)));
}
catch (FormatException ex)
{
throw new InvalidCastException(Utils.GetResourceString("InvalidCast_FromStringTo", Strings.Left(Value, 32), "Long"), (Exception)ex);
}
}
/// <summary>Returns a <see langword="Double" /> value that corresponds to the specified string and number format information. </summary>
/// <param name="Value">Required. String to convert to a <see langword="Double" /> value.</param>
/// <param name="NumberFormat">A <see cref="T:System.Globalization.NumberFormatInfo" /> object that defines how numeric values are formatted and displayed, depending on the culture.</param>
/// <returns>The <see langword="Double" /> value corresponding to <paramref name="Value" />.</returns>
public static double Parse(string Value, NumberFormatInfo NumberFormat)
{
CultureInfo cultureInfo = Utils.GetCultureInfo();
if (NumberFormat == null)
{
NumberFormat = cultureInfo.NumberFormat;
}
NumberFormatInfo normalizedNumberFormat = DecimalType.GetNormalizedNumberFormat(NumberFormat);
Value = Utils.ToHalfwidthNumbers(Value, cultureInfo);
try
{
return(double.Parse(Value, NumberStyles.Any, (IFormatProvider)normalizedNumberFormat));
}
catch (FormatException ex) when(NumberFormat != normalizedNumberFormat)
{
return(double.Parse(Value, NumberStyles.Any, (IFormatProvider)NumberFormat));
}
catch (Exception ex)
{
throw ex;
}
}
/// <summary>Returns a <see langword="Decimal" /> value that corresponds to the specified string and number format information. </summary>
/// <param name="Value">Required. String to convert to a <see langword="Decimal" /> value.</param>
/// <param name="NumberFormat">A <see cref="T:System.Globalization.NumberFormatInfo" /> object that defines how numeric values are formatted and displayed, depending on the culture.</param>
/// <returns>The <see langword="Decimal" /> value that corresponds to <paramref name="Value" />.</returns>
public static Decimal FromString(string Value, NumberFormatInfo NumberFormat)
{
if (Value == null)
{
return(Decimal.Zero);
}
try
{
long i64Value = 0;
if (Utils.IsHexOrOctValue(Value, ref i64Value))
{
return(new Decimal(i64Value));
}
return(DecimalType.Parse(Value, NumberFormat));
}
catch (OverflowException ex)
{
throw ExceptionUtils.VbMakeException(6);
}
catch (FormatException ex)
{
throw new InvalidCastException(Utils.GetResourceString("InvalidCast_FromStringTo", Strings.Left(Value, 32), "Decimal"));
}
}
internal override void PutObject(object Value, long RecordNumber = 0, bool ContainedInVariant = true)
{
this.ValidateWriteable();
if (Value == null)
{
this.PutEmpty(RecordNumber);
}
else
{
Type type = Value.GetType();
if (type == null)
{
throw ExceptionUtils.VbMakeException((Exception) new ArgumentException(Utils.GetResourceString("Argument_UnsupportedIOType1", new string[1]
{
"Empty"
})), 5);
}
if (type.IsArray)
{
this.PutDynamicArray(RecordNumber, (Array)Value, true, -1);
}
else
{
if (type.IsEnum)
{
type = Enum.GetUnderlyingType(type);
}
switch (Type.GetTypeCode(type))
{
case TypeCode.DBNull:
this.PutShort(RecordNumber, (short)1, false);
break;
case TypeCode.Boolean:
this.PutBoolean(RecordNumber, BooleanType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.Char:
this.PutChar(RecordNumber, CharType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.Byte:
this.PutByte(RecordNumber, ByteType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.Int16:
this.PutShort(RecordNumber, ShortType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.Int32:
this.PutInteger(RecordNumber, IntegerType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.Int64:
this.PutLong(RecordNumber, LongType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.Single:
this.PutSingle(RecordNumber, SingleType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.Double:
this.PutDouble(RecordNumber, DoubleType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.Decimal:
this.PutDecimal(RecordNumber, DecimalType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.DateTime:
this.PutDate(RecordNumber, DateType.FromObject(Value), ContainedInVariant);
break;
case TypeCode.String:
this.PutVariantString(RecordNumber, Value.ToString());
break;
default:
if (type == typeof(Missing))
{
throw ExceptionUtils.VbMakeException((Exception) new ArgumentException(Utils.GetResourceString("Argument_UnsupportedIOType1", new string[1]
{
"Missing"
})), 5);
}
if (type.IsValueType && !ContainedInVariant)
{
this.PutRecord(RecordNumber, (ValueType)Value);
break;
}
if (ContainedInVariant && type.IsValueType)
{
throw ExceptionUtils.VbMakeException((Exception) new ArgumentException(Utils.GetResourceString("Argument_PutObjectOfValueType1", new string[1]
{
Utils.VBFriendlyName(type, Value)
})), 5);
}
throw ExceptionUtils.VbMakeException((Exception) new ArgumentException(Utils.GetResourceString("Argument_UnsupportedIOType1", new string[1]
{
Utils.VBFriendlyName(type, Value)
})), 5);
}
}
}
}
public bool Callback(FieldInfo field_info, ref object vValue)
{
Type fieldType = field_info.FieldType;
if (fieldType == null)
{
throw ExceptionUtils.VbMakeException((Exception) new ArgumentException(Utils.GetResourceString("Argument_UnsupportedFieldType2", field_info.Name, "Empty")), 5);
}
if (fieldType.IsArray)
{
int FixedStringLength = -1;
object[] customAttributes1 = field_info.GetCustomAttributes(typeof(VBFixedArrayAttribute), false);
VBFixedArrayAttribute fixedArrayAttribute = customAttributes1 == null || customAttributes1.Length == 0 ? (VBFixedArrayAttribute)null : (VBFixedArrayAttribute)customAttributes1[0];
Type elementType = fieldType.GetElementType();
if (elementType == typeof(string))
{
object[] customAttributes2 = field_info.GetCustomAttributes(typeof(VBFixedStringAttribute), false);
FixedStringLength = customAttributes2 == null || customAttributes2.Length == 0 ? -1 : ((VBFixedStringAttribute)customAttributes2[0]).Length;
}
if (fixedArrayAttribute == null)
{
this.m_oFile.PutDynamicArray(0L, (Array)vValue, false, FixedStringLength);
}
else
{
this.m_oFile.PutFixedArray(0L, (Array)vValue, elementType, FixedStringLength, fixedArrayAttribute.FirstBound, fixedArrayAttribute.SecondBound);
}
}
else
{
switch (Type.GetTypeCode(fieldType))
{
case TypeCode.DBNull:
throw ExceptionUtils.VbMakeException((Exception) new ArgumentException(Utils.GetResourceString("Argument_UnsupportedFieldType2", field_info.Name, "DBNull")), 5);
case TypeCode.Boolean:
this.m_oFile.PutBoolean(0L, BooleanType.FromObject(vValue), false);
break;
case TypeCode.Char:
this.m_oFile.PutChar(0L, CharType.FromObject(vValue), false);
break;
case TypeCode.Byte:
this.m_oFile.PutByte(0L, ByteType.FromObject(vValue), false);
break;
case TypeCode.Int16:
this.m_oFile.PutShort(0L, ShortType.FromObject(vValue), false);
break;
case TypeCode.Int32:
this.m_oFile.PutInteger(0L, IntegerType.FromObject(vValue), false);
break;
case TypeCode.Int64:
this.m_oFile.PutLong(0L, LongType.FromObject(vValue), false);
break;
case TypeCode.Single:
this.m_oFile.PutSingle(0L, SingleType.FromObject(vValue), false);
break;
case TypeCode.Double:
this.m_oFile.PutDouble(0L, DoubleType.FromObject(vValue), false);
break;
case TypeCode.Decimal:
this.m_oFile.PutDecimal(0L, DecimalType.FromObject(vValue), false);
break;
case TypeCode.DateTime:
this.m_oFile.PutDate(0L, DateType.FromObject(vValue), false);
break;
case TypeCode.String:
string s = vValue == null ? (string)null : vValue.ToString();
object[] customAttributes = field_info.GetCustomAttributes(typeof(VBFixedStringAttribute), false);
if (customAttributes == null || customAttributes.Length == 0)
{
this.m_oFile.PutStringWithLength(0L, s);
break;
}
int lengthToWrite = ((VBFixedStringAttribute)customAttributes[0]).Length;
if (lengthToWrite == 0)
{
lengthToWrite = -1;
}
this.m_oFile.PutFixedLengthString(0L, s, lengthToWrite);
break;
default:
if (fieldType == typeof(object))
{
this.m_oFile.PutObject(vValue, 0L, true);
break;
}
if (fieldType == typeof(Exception))
{
throw ExceptionUtils.VbMakeException((Exception) new ArgumentException(Utils.GetResourceString("Argument_UnsupportedFieldType2", field_info.Name, "Exception")), 5);
}
if (fieldType == typeof(Missing))
{
throw ExceptionUtils.VbMakeException((Exception) new ArgumentException(Utils.GetResourceString("Argument_UnsupportedFieldType2", field_info.Name, "Missing")), 5);
}
throw ExceptionUtils.VbMakeException((Exception) new ArgumentException(Utils.GetResourceString("Argument_UnsupportedFieldType2", field_info.Name, fieldType.Name)), 5);
}
}
bool flag = false;
return(flag);
}
internal override void Input(ref Decimal Value)
{
Value = DecimalType.FromObject(this.InputNum(VariantType.Decimal));
}
/// <summary>Returns a <see langword="Decimal" /> value that corresponds to the specified object. </summary>
/// <param name="Value">Required. Object to convert to a <see langword="Decimal" /> value.</param>
/// <returns>The <see langword="Decimal" /> value that corresponds to <paramref name="Value" />.</returns>
public static Decimal FromObject(object Value)
{
return(DecimalType.FromObject(Value, (NumberFormatInfo)null));
}
/// <summary>Returns a <see langword="Decimal" /> value that corresponds to the specified string. </summary>
/// <param name="Value">Required. String to convert to a <see langword="Decimal" /> value.</param>
/// <returns>The <see langword="Decimal" /> value that corresponds to <paramref name="Value" />.</returns>
public static Decimal FromString(string Value)
{
return(DecimalType.FromString(Value, (NumberFormatInfo)null));
}