I am trying to write a code that converts characters in string using a case select statements. For instance if I type the word "aeiou" the the word "<>[]/", also if I type "AEIOU" then <>[]/" should print but its not working here is a sample of my code so far.
[Code]...
I have a lot of really long strings that I want to test. Is it possible to use the CASE statement and compare it to the first 25 characters of the string to get a match?
View 14 RepliesDim subtotal As Decimal = CDec(txtSubtotal.Text)
Dim discountPercent As Decimal
Select Case txtCustomerType.Text.ToUpper() = "R"
Case CBool(250) To CBool(500)
discountPercent = 0.25D
[code]....
i have a situation in which i have to check if the string starts with something and then perform something....First i used "If" as below
If utn.text.startswith("Fuel") then
messagebox.show("Fuel Purchase is selected")
End If
[code]....
Now i have to use Select and Case statements along with startswith...?
I am working on a calculator and I'm trying to use select case statements for the symbols selected (radio buttons) as opposed to If then Else statements. I am running into trouble because I'm only used to using them with list boxes.[code]...
View 4 RepliesIm trying to figure how to use the IF, ELSE statements OR the Select Case statement to write this program.I'm using Visual Studio 2010. The program is suppose to allow the user to input their weight in a text box and from group box 1 the select whether theyre male or female using the radios and they select inactive or active from group box two and the calculate but will determine how many calories they should intake based on the criteria below.
[Code]...
how to associate a select case statement with, which point to four Function procedures, to four radio buttons that are used to +, -, *, and / two simple fractions in a fractions calculator. This is a class assignment for which I have already been graded. I used an If...ElseIf statment and it worked perfectly. Now I am trying to utilize the Case Statments with Function Procedures to do the same thing. I do not get graded for this, but I was told to research it an find an answer. My current code is listed below.
[Code]...
can anyone give a sample code for select case statements under a button click event?
View 2 RepliesI have all-one-case strings representing postal addresses stored in a database, but I want to capitalize US state abbreviations (e.g. " ca " to " CA ") when the abbreviation is separated from the rest of the string by a space on either side.The lousy way I could do it would be to have 50 statements like
If addressString.Contains(" al ") Then addressString.Replace(" al ", " AL ")
If addressString.Contains(" ak ") Then addressString.Replace(" ak ", " AK ")
...
Edit: That is a really lousy way! Here's what I did instead:
addressString = StrConv(addressString, VbStrConv.ProperCase)
'This needed to be done anyway, but it turns " ak " into " Ak ".
Static stateAbbrevs As New List(Of String)(New String() {" Ak ", " Al ", " Ar "...})
For Each a In stateAbbrevs
If addressString.Contains(a) Then
[code]....
I'm having issues with finding something in list, and removing the item, ignoring the case of characters in string.
The code goes:
Dim listItems As New List(Of String)
Dim pattern As String = "AbC"
Dim array() As String
array = {"ABC", "abc"}
listItems.AddRange(array)
Here I'd like to remove all items from listItems, that are abc, no matter what case single characters of item are, including mixed case items. So in this example, every items should be removed
listItems.Remove(listItems.Find(Function(r) r = pattern))
If I change pattern to match the case of item, then item #2 gets removed:
pattern = "abc"
listItems.Remove(listItems.Find(Function(r) r = pattern))
How can I find item in listItems, ignoring the case characters in pattern?
I have 8 sentences, such as:
"Hello and we Hope you enjoy our service<100>"
"Good Morning Mr something nice to see you <200>"
"Good Evening Welcome to this domain <300>" etc etc
(The actual requirement is long sentence about 10 or 15 word and 8 different sentences.) I want to check which on is the response from the xmlhttp, I am doing that by searching the response if it contain <100> or <200> or <300> and depends on that I want to display "Login Faild", "Login success", "Server Down" etc.. what I mean, I have a place for 4 words in my listview and i don't want to put the complete response that came from the server, my question is, how to do it? I had tried to use Select Case in this way, it did not worked.
Select Case MyResponse
Case MyResponse.Contain("<100>")
MyResult = "Login Failed"
[code]....
Is there anyway I can build a Select statement that uses the Contains function? Like this:
Select commentStr
Case commentStr.Contains("10")
Case commentStr.Contains("15")
i have a ini file where i read my data
[Code]...
I am using a Microsoft Chart control (system.windows.forms.datavisualization.charting.chart) in a Windows forms application, vb.net 2008. I use folder paths for the x values in a pie chart. Chart control converts a name like c:ewfolder into c:[newline]ewfolder. I tried adding a slash, making it c:\newfolder, but this only changes it to c:[newline]ewfolder. Is there a workaround for this behavior?
some code:
Chart1.Titles.Clear() : Chart1.Titles.Add("Largest Folders in " & txPath.Text)
Chart1.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie
Chart1.Series(0)("PieLabelStyle") = "Inside"
Chart1.Series(0).YValueType = DataVisualization.Charting.ChartValueType.Double
Chart1.Series(0).XValueType = DataVisualization.Charting.ChartValueType.String
[Code]...
I'm writing a threaded multi-client chat application in VB.NET(2008). While the thread is running and a message is received from the server(in this particular case: "ping") i wish to copy the content of the variable holding the newly received data to another variable(as that first variable is constantly changing) and then later call the Checkmsg() sub which contains a select case to analyse the string and notice a particular command(in this case, when it notices "ping" as received data, I want it to send "pong" back to the server.) and react to it. Now the problem is the code actually "jumps" to the Checkmsg() sub, and fails to compare properly the received data to my select case argument. I've tried setting messageboxes at a couple of place to see if my data was somehow changed but even before the line that compares the two strings the message box prints "ping" and the select case is set to react to "ping" but it wont "move". Now I don't really understand, i've done much vb programming but i'm learning threads.
[Code]...
The following string could be: dsafk$asdlfdl or odldl$ldlkfjdsljfdslkjfdslkjf I need to do the following. Select everything to the rigt of the dollar sign, move it to the left of the dollar sign, and then put a second string that is coming into this function to the right of the dollar sign where the old string was.
View 2 Repliesi have a program, three radios, and 2 check boxes. the Radios use a constant value and do a multiplication. check one applies a discount. no problem.
the last takes the values of all three radios does a comaparison and displays a label if false, performs a subtraction if true and shows savings.problem>
very convoluted using if statements. and the output is often wrong(i know this is a logic error) i can not find the fault.
would it be easier to use case statments. can and will post code if requested. as it is in if then format currently it is rather long.
Sometimes the answer is so blindingly obvious i fail to see it.
When my form loads it adds some handles (using AddHandler) to a sub (showStatus). What this sub does is checks which control activated the sub (using sender.Equals) and displays text in the status label (status) accordingly.For this I use an If...Then statement for each possibility. There are many possibilities and my code get cluttered. Is there a way to do the same thing with a Select...Case statement. I tried: Select Case sender Case tbOne : status.Text = "blahblahblahblahblahblah" End Selectwhere: tbOne is a textbox, status is a StatusLabelIt gives me an error though, saying "Operator '=' is not defined for types 'Object' and 'System.Windows.Forms.TextBox'."Any ideas on how I can get this to work with a select case statement?
View 13 Replieshere is my code..
[Code]....
If the result is 86 and it's mod by 43 the answer is 2 Case 2 is not firing. it just goes to the end of the procedure.
My page contains: GridView1, GridView2, Button1, Button2, DropDownList1 I bind Gridviews to the table selected in dropdown like this:
Dim results as DataTable
Select Case ddl1.SelectedValue
Case 0
[Code]....
For me it looks like a lot of overhead. How can I improve then design and only specify that I'm working on the following record in dropdown list without specifying the Case condition every time? Should I change my design or leave it like it is?
Update:
RunZero, RunOne, RunTwo, RemoveZero, RemoveOne, RemoveTwo, RemoveThree - Execute six different stored procedures.
I am working on Datagridview. My task is adding buttons in the Datagridview table based on the case statements. Like In the Present table i have one column called "CategoryDescription". In this column, values are like 3101,3102, 3103........Here 31 is the common. and like 3201,3202,3203......Here 32 is the common. Like there are so many common values are there. So where ever the common values will come there i have to add one button in the Same column.
So Finally my conclsion is at Satrting 3101 and starting 3201,3301,3401.. i have to add one button control 3101 and add button control on 3201 and add button control on 3301.
i have a program using a select case to convert letters to special charaters. My question is how can I get the code to read upper and lower case letters without having to put the upper case letters in my select case statement. Example: Part of my code is
[Code]...
I have the following code:
Public Shared Function GetListAsString(ByVal data As List(Of String)) As String
Dim retVal As String = "| "
For Each obj As String In data[cod
It converts a List to a printable String. Right now it is set up to work with just Lists. I feel as if it should be able to work with any type of Collection. I am new to Collections and generics.When I attempt to do something like
Public Shared Function GetListAsString(ByVal data As Collection(T)) As String
Dim retVal As String = "| "
For Each obj As String In data.ToString()[code].....
I saw a built in function in VBscript a while back that converted a string with spaces to an array. However I can't remember the name and I looked it up in a few function listings and couldn't find it. Since almost all the functions that are in VBcript are in VB.NET I was wondering if anyone remembered the name of the function.
View 2 RepliesI have place 3 textboxes in my form Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
[Code]...
ive got a form containing treeview on the left docked, and two panels one over the other (just as for practice), so i am using treeview to select one from the other the code contains the Case select,
If
Not e.Node
Is
Nothing
[code]....
The problem is , both panels are not visible, when i select the first node the firstpanel is visible then i select the second node both panels are not visible, i return to the first node the first panel is visible.
Not sure if this is possible but can you use the select statements in VB to pull in from not just one but multiple tables and put the data in a gridview? [URL]
Code:
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
[Code].....
I have a string of characters, but I would like to have a string of hexdecimal characters where the hexadecimal characters are converted by turning the original characters into integers and then those integers into hexadecimal characters. How do I do that?
View 3 RepliesI've recently ported my website from 2005 to 2008, and I'm using LINQ Queries to implement a search. The issue is that none of the fields are mandatory, so I've had to implement a dynamic LINQ Query (sic?). Here's the relevant code -
Public Function searchQuery(ByVal titleType As String, ByVal titleName As String, _
ByVal configMgr As String, ByVal lifecycle As String, _
ByVal CIType As String, ByVal recordsPerPage As String) As IEnumerable(Of
[code].....
I am trying to do simple insert, update, delete, select statements within VB .NET to access a MS Access database. I have tried all kinds of solutions offered on the web and while the code seems to work, no rows are inserted. Also, I have tried, unsuccessfully, to use the Try/Catch to see if there's an error with no success. I have attached the versions of VB .Net and MS Access I am using: Here's the code:
[Code]...