Im trying to take only alphabetical characters out of what the users input to the text field (txtinput.text)..
So if i put in "The yellow man had 32 teeth!"
then im trying to get results like" Theyellowmanhadteeth"
anything besides characters should be stripped out of the inputed field.
this is in visual basic
14 21809
Hi im replying to this because im trying to take only alphabetical characters out of what the users input to the text field (txtinput.text).. So if i put in "The yellow man had 32 teeth!" then im trying to get results like" Theyellowmanhadteeth" anything besides characters should be stripped out of the inputed field.
Hi im replying to this because im trying to take only alphabetical characters out of what the users input to the text field (txtinput.text).. So if i put in "The yellow man had 32 teeth!" then im trying to get results like" Theyellowmanhadteeth" anything besides characters should be stripped out of the inputed field.
The simple way would be to loop (probably using a For loop) through each character in the string (most likely using Mid() function) and if it is a letter, append it to another, output string.
Psedudo-code... - For Each Character In MyInput
-
If Ucase(Character) is between "A" and "Z"
-
MyOutput = MyOutput & Character
-
End If
-
Next
Oh, and by the way - you can't really copy "anything besides characters" because they're all characters.
Hi im replying to this because im trying to take only alphabetical characters out of what the users input to the text field (txtinput.text).. So if i put in "The yellow man had 32 teeth!" then im trying to get results like" Theyellowmanhadteeth" anything besides characters should be stripped out of the inputed field.
I'm speechless: Killer didn't use Replace! Just brute-force it: - s = Replace(s, 1, "")
-
s = Replace(s, 2, "")
-
s = Replace(s, 3, "")
-
...
-
and, you can put it in a loop so that it is only three lines.
But, also do it Killer's way so that you can learn how to use the Mid function.
BTW, if you're using VB.NET, these functions are part of the Strings module, so you say Strings.Mid(...) and Strings.Replace(...)
I think it would be a bit more than three lines, Sammy. Or are you assuming that letters and numbers are the only possible characters?
Im trying to take only alphabetical characters out of what the users input to the text field (txtinput.text)..
So if i put in "The yellow man had 32 teeth!"
then im trying to get results like" Theyellowmanhadteeth"
anything besides characters should be stripped out of the inputed field.
this is in visual basic
Take two strings say strChar and strNumber
Read the length of your string....Loop through your string.....With the Substring() function Read characters one by one........Check characters with IsNumeric() Function whether its a number or not.....if number then strip off the character and store it to strNumber Otherwise store it to strChar.......
after the loop completes strChar will be your string without number.....
Implement it in code.......
it will be Something like.... - Dim strChar,strNumber As String
-
Dim n As Integer=myString.Length
-
For i as integer=0 to n-1
-
dim str as string=myString.Substring(i,i+1)
-
If IsNumeric(str) then
-
strNumber+=str
-
else
-
strChar+=str
-
End if
-
Next
-
MsgBox(strChar)
...Check characters with IsNumeric() Function whether its a number or not.....if number then strip off the character and store it to strNumber Otherwise store it to strChar.......
What happens to spaces, and punctuation?
I'd do this with ascii characters for each letter, similar to what was said earlier with between "a" and "z".
This is proabably over complicating the problem quite a bit, but it works, it keeps the letters in the case they were found in as well ^^ -
-
Dim strText As String, strLeft As String, strRight As String
-
Dim intA As Integer
-
strText = Text1.Text
-
For intA = 1 To Len(strText)
-
strLeft = Left(strText, intA)
-
strRight = Right(strLeft, 1)
-
-
If Asc(strRight) > 97 And Asc(strRight) < 122 Then
-
Label1.Caption = Label1.Caption & strRight
-
End If
-
If Asc(strRight) > 65 And Asc(strRight) < 90 Then
-
Label1.Caption = Label1.Caption & strRight
-
End If
-
Next intA
-
-
Hope this helps.
I have a similar problem. can you guys help?
...
If I'm not mistaken, this sounds like a question for the Access forum. Would you like me to move it over there? You're likely to get better information there, if this is SQL-related.
I'd do this with ascii characters for each letter, similar to what was said earlier with between "a" and "z".
...
Looks good.
I do have a couple of issues with it, just on performance grounds. There seems to be a lot of duplicated effort.
For example, why use Left() then Right() function? Is this faster than the Mid() function? (this is a serious question - sometimes the longer coding can be more efficient). Or perhaps it's just a personal preference?
And your second If test doesn't need to be executed if the first was satisfied. Personally, I'd short-cut the process by using ElseIf or similar. Plus I would place the Asc() value into a variable so the function is only called once.
In fact, one of the main reasons I like to use Select Case for these kind of situations is that it allows you much more flexibility in your conditions (if checking one value). For example, where you are doing two IF tests, I would have used something like... - Select Case Asc(strRight)
-
Case 97 To 122, 65 To 90
-
...
-
However, while this seems (to me) "nicer" to code, I don't know how it compares on performance. Must check it out one of these days...
Oh, and one more point - I would always use a Long in favour of an Integer, unless space was very tight. Believe it or not, Long data type is (very slightly) faster to use on a 32 bit processor.
If I'm not mistaken, this sounds like a question for the Access forum.
right. I got carried away.
right. I got carried away.
Hang on, I'll do a bit of Moderator Magic...
Ok, here is the new thread.
I'd do this with ascii characters for each letter, similar to what was said earlier with between "a" and "z".
This is proabably over complicating the problem quite a bit, but it works, it keeps the letters in the case they were found in as well ^^ -
-
Dim strText As String, strLeft As String, strRight As String
-
Dim intA As Integer
-
strText = Text1.Text
-
For intA = 1 To Len(strText)
-
strLeft = Left(strText, intA)
-
strRight = Right(strLeft, 1)
-
-
If Asc(strRight) > 97 And Asc(strRight) < 122 Then
-
Label1.Caption = Label1.Caption & strRight
-
End If
-
If Asc(strRight) > 65 And Asc(strRight) < 90 Then
-
Label1.Caption = Label1.Caption & strRight
-
End If
-
Next intA
-
-
Hope this helps.
Izzit this code is for vb6?in vb 2005 is there also can use the Left method?Thanks
Izzit this code is for vb6?in vb 2005 is there also can use the Left method?Thanks
Yes, I write in VB6. VB 2005 certainly does have comparable functions, but I don't know the details. I think if you look in the doco, either on your PC or at MS' website, you should find it easily enough.
I always prefer to keep them from putting the characters I don't like into the field in the first place by intercepting the keypress event: - Private Sub Text1_KeyPress(KeyAscii As Integer)
-
Select Case KeyAscii
-
Case Asc("a") To Asc("z"), Asc("A") To Asc("Z")
-
Case 13
-
'enter key can do something special
-
[user code]
-
keyascii=0 'this keeps the thing from beeping!
-
Case Else
-
KeyAscii = 0
-
End Select
-
End Sub
You can then allow back space, delete etc by adding the appropriate character codes. I use this a lot when I just want numbers in auto-calculating forms which I write a lot of.
Sign in to post your reply or Sign up for a free account.
Similar topics
by: Bernard Drolet |
last post by:
Hi,
I have a column containing a string; the string always starts with a
letter (a-z), followed by an undefined number of letters, then one
number or more.
The REGEXP would look like *+
I...
|
by: rs |
last post by:
I have a table with a timestamp field which contains the date and time. ie.
9/13/2004 9:10:00 AM.
I would like to split this field into 2 fields, one with just the DATE
portion ie 9/13/2004
and...
|
by: zek2005 |
last post by:
Hi friends!
I have a varchar field in my DB with numeric values separates by
spaces. I need to extract the numbers to create an array.
Example 1: 1820 1823 1825 --> need to be transform into
...
|
by: giloosh |
last post by:
Hello,
how can i extract a websites html into a string.
also, is there a limit to how many chars a string can hold?
something like:
$string = extracted_html($url);
thanks for any help!
|
by: deko |
last post by:
I'm sure someone has passed this way before...
I want to check to see is a domain name is contained in a string, and if one is,
I want to extract it. In these strings, domains are always...
|
by: pigeonrandle |
last post by:
Quickie time!
Is indexing using String to get individual characters 'as quick' as
converting the String to a Char and then using Char? Is the
conversion to Char worth the processing?
In...
|
by: markmcgookin |
last post by:
Hi Folks,
I am writing a program to analyse an html page in java, I am connecting to a website, then going to extract ALL the links from it. I think the best way to do this is using the <a...
|
by: blitzztriger |
last post by:
hello all , i need help at this:
<?
//connection stuff
$conexao = mysql_connect("localhost", "root", "12345")
or die ("error to db.");
$db = mysql_select_db("mal")
or die ("error selecting...
|
by: GS |
last post by:
I need to extract sections out of a long string of about 5 to 10 KB, change
any date format of dd Mmm yyyy to yyyy-mm-dd, then further from each section
extract columns of tables.
what is the...
|
by: rajesh0303 |
last post by:
I want to extract substring from string and replace them by character.
.ex:In "lphrd" , I want to extract and ,and want them to replace be replaced by Ä and É. so, that the result string...
|
by: taylorcarr |
last post by:
A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...
|
by: Charles Arthur |
last post by:
How do i turn on java script on a villaon, callus and itel keypad mobile phone
|
by: emmanuelkatto |
last post by:
Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud.
Please let me know.
Thanks!
Emmanuel
|
by: BarryA |
last post by:
What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...
|
by: nemocccc |
last post by:
hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?
|
by: marktang |
last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
|
by: Hystou |
last post by:
Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...
|
by: Oralloy |
last post by:
Hello folks,
I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>".
The problem is that using the GNU compilers,...
|
by: jinu1996 |
last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
| |