Advertisement

06.28.2008 at 01:42AM PDT, ID: 23523677
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
8.3

beginner: assistance to convert string to double /xml

Asked by Tania_Farmer in .NET Framework 3.x versions, Programming for ASP.NET, VB Script

Tags:

Hi,
I am trying to convert a string to a double and not sure how to do this.  This is the original code as a string:
Partial Class courseTabs
    Inherits System.Web.UI.UserControl
            
            Public Function getDuration() As String
                Dim value As String = XPath("duration")
                     Return String.Concat("<li><strong>Duration: ", value , "</strong>.</li>")
            End Function
      
      
            Public Function getMOPrice() As String
                   Dim value As String = XPath("prices/price[@vehicle='mo']")
                              If value Is Nothing Then
                             Return String.Empty
                            Else
                                 Return String.Concat(" <li>Price: US$ ", value, ".00 per Student.")
                         End If
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load  
      
    End Sub
End Class

I found some sample code to try and follow it the ASP>NET starter pack but have no clue how to amalgamate it.  

Cheers
Tania
Start Free Trial 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:

Public Class Item
    Private _id As String
    Private _title As String
    Private _visible As Boolean
    Private _description As String
    Private _price As Double
    Private _inStock As Boolean
    Private _imageUrl As String
    Private _imageAltText As String
 
 
 
    Public Sub New(ByVal id As String, ByVal visible As Boolean, ByVal title As String)
        If [String].IsNullOrEmpty(id) Then
            Throw New ArgumentException(Messages.ItemIdUndefined)
        End If
        If [String].IsNullOrEmpty(title) Then
            Throw New ArgumentException(Messages.ItemTitleUndefined)
        End If
        _id = id
        _visible = visible
        _title = title
    End Sub 'New 
 
 
 
    Public ReadOnly Property Id() As String
        Get
            Dim ret As String
            If [String].IsNullOrEmpty(_id) Then
                ret = [String].Empty
            Else
                ret = _id
            End If
            Return ret
        End Get
    End Property
 
    Public Property Visible() As Boolean
        Get
            Return _visible
        End Get
        Set(ByVal value As Boolean)
            _visible = value
        End Set
    End Property
 
    Public Property Title() As String
        Get
            Dim ret As String
            If String.IsNullOrEmpty(_title) Then
                ret = String.Empty
            Else
                ret = _title
            End If
            Return ret
        End Get
        Set(ByVal value As String)
            If [String].IsNullOrEmpty(value) Then
                Throw New InvalidOperationException(Messages.ItemTitleIsNull)
            End If
            _title = value
        End Set
    End Property
 
 
    Public Property Description() As String
        Get
            Return _description
        End Get
        Set(ByVal value As String)
            _description = value
        End Set
    End Property
 
    Public Property Price() As Double
        Get
            Return _price
        End Get
        Set(ByVal value As Double)
            _price = value
        End Set
    End Property
 
    Public Property InStock() As Boolean
        Get
            Return _inStock
        End Get
        Set(ByVal value As Boolean)
            _inStock = value
        End Set
    End Property
 
    Public Property ImageUrl() As String
        Get
            Dim ret As String
            If String.IsNullOrEmpty(_imageUrl) Then
                ret = String.Empty
            Else
                ret = _imageUrl
            End If
            Return ret
        End Get
        Set(ByVal value As String)
            _imageUrl = value
        End Set
    End Property
 
    Public Property ImageAltText() As String
        Get
            Dim ret As String
            If String.IsNullOrEmpty(_imageAltText) Then
                ret = String.Empty
            Else
                ret = _imageAltText
            End If
            Return ret
        End Get
        Set(ByVal value As String)
            _imageAltText = value
        End Set
    End Property
End Class 'Item
[+][-]06.28.2008 at 02:27AM PDT, ID: 21889973

View this solution now by starting your 7-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

 

About this solution

Zones: .NET Framework 3.x versions, Programming for ASP.NET, VB Script
Tags: asp.net 3.5 vb
Sign Up Now!
Solution Provided By: bui_trung_hieu
Participating Experts: 1
Solution Grade: B
 
 
[+][-]06.28.2008 at 03:24AM PDT, ID: 21890089

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 7-day free trial to view this Author Comment or ask the Experts your question.

 
 
Loading Advertisement...
20080716-EE-VQP-32 / EE_QW_2_20070628