Visual Basic 6 String Functions

Level:
Level2

Originally Written By TheVBProgramer. Cleaned up and reformatted for this site.

NOTE: This tutorial uses The VB Test Harness. If you have not already created this test harness please do so first. It will make this tutorial a lot easier to follow.

VB has numerous built-in string functions for processing strings. Most VB string-handling functions return a string, although some return a number (such as the Len function, which returns the length of a string and functions like Instr and InstrRev, which return a character position within the string). The functions that return strings can be coded with or without the dollar sign ($) at the end, although it is more efficient to use the version with the dollar sign.

The first time I started trying to understand the VB6 string functions I was somewhat confused. This tutorial will walk you through all the different ways you can us VB to handle strings. If you are still confused feel free to post a comment and hopefully we can help get you cleared up. Also there are many other string related tutorials on this site so feel free to browse around.

Function:	Len
Description:	Returns a Long containing the length of the specified string
Syntax:	*Len(string)* Where string is the string whose length (number of characters) is to be returned.
Example:	lngLen = Len("Visual Basic") ' lngLen = 12

Function:	Mid$ (or Mid)
Description:	Returns a substring containing a specified number of characters from a string.
Syntax:	*Mid$(string, start[, length])* The Mid$ function syntax has these parts: *string* Required. String expression from which characters are returned. *start* Required; Long. Character position in string at which the part to be taken begins. If start is greater than the number of characters in string, Mid returns a zero-length string (""). *length* Optional; Long. Number of characters to return. If omitted or if there are fewer than length characters in the text (including the character at start), all characters from the start position to the end of the string are returned.
Example:	strSubstr = Mid$("Visual Basic", 3, 4) ' strSubstr = "sual" Note: Mid$ can also be used on the left side of an assignment statement, where you can replace a substring within a string. strTest = "Visual Basic" Mid$(strTest, 3, 4) = "xxxx" 'strTest now contains "Vixxxx Basic" In VB6, the Replace$ function was introduced, which can also be used to replace characters within a string.

Function:	Left$ (or Left)
Description:	Returns a substring containing a specified number of characters from the beginning (left side) of a string.
Syntax:	*Left$(string, length)* The Left$ function syntax has these parts: *string* Required. String expression from which the leftmost characters are returned. *length* Required; Long. Numeric expression indicating how many characters to return. If 0, a zero-length string ("") is returned. If greater than or equal to the number of characters in string, the entire string is returned.
Example:	strSubstr = Left$("Visual Basic", 3) ' strSubstr = "Vis" ' Note that the same thing could be accomplished with Mid$: strSubstr = Mid$("Visual Basic", 1, 3)

Function:	Right$ (or Right)
Description:	Returns a substring containing a specified number of characters from the end (right side) of a string.
Syntax:	*Right$(string, length)* The Right$ function syntax has these parts: *string* Required. String expression from which the rightmost characters are returned. *length* Required; Long. Numeric expression indicating how many characters to return. If 0, a zero-length string ("") is returned. If greater than or equal to the number of characters in string, the entire string is returned.
Example:	strSubstr = Right$("Visual Basic", 3) ' strSubstr = "sic" ' Note that the same thing could be accomplished with Mid$: strSubstr = Mid$("Visual Basic", 10, 3)

Function:	UCase$ (or UCase)
Description:	Converts all lowercase letters in a string to uppercase. Any existing uppercase letters and non-alpha characters remain unchanged.
Syntax:	*UCase$(string)*
Example:	strNew = UCase$("Visual Basic") ' strNew = "VISUAL BASIC"

Function:	LCase$ (or LCase)
Description:	Converts all uppercase letters in a string to lowercase. Any existing lowercase letters and non-alpha characters remain unchanged.
Syntax:	*LCase$(string)*
Example:	strNew = LCase$("Visual Basic") ' strNew = "visual basic"

Function:	Instr
Description:	Returns a Long specifying the position of one string within another. The search starts either at the first character position or at the position specified by the start argument, and proceeds forward toward the end of the string (stopping when either string2 is found or when the end of the string1 is reached).
Syntax:	*InStr([start,] string1, string2 [, compare])* The InStr function syntax has these parts: *start* Optional. Numeric expression that sets the starting position for each search. If omitted, search begins at the first character position. The start argument is required if compare is specified. *string1* Required. String expression being searched. *string2* Required. String expression sought. *compare* Optional; numeric. A value of 0 (the default) specifies a binary (case-sensitive) search. A value of 1 specifies a textual (case-insensitive) search.
Examples:	lngPos = Instr("Visual Basic", "a") ' lngPos = 5 lngPos = Instr(6, "Visual Basic", "a") ' lngPos = 9 (starting at position 6) lngPos = Instr("Visual Basic", "A") ' lngPos = 0 (case-sensitive search) lngPos = Instr(1, "Visual Basic", "A", 1) ' lngPos = 5 (case-insensitive search)

Function:	InstrRev
Description:	Returns a Long specifying the position of one string within another. The search starts either at the last character position or at the position specified by the start argument, and proceeds backward toward the beginning of the string (stopping when either string2 is found or when the beginning of the string1 is reached). Introduced in VB 6.
Syntax:	*InStrRev(string1, string2[, start, [, compare]])* The InStr function syntax has these parts: *string1* Required. String expression being searched. *string2* Required. String expression sought. *start* Optional. Numeric expression that sets the starting position for each search. If omitted, search begins at the last character position. *compare* Optional; numeric. A value of 0 (the default) specifies a binary (case-sensitive) search. A value of 1 specifies a textual (case-insensitive) search.
Examples:	lngPos = InstrRev("Visual Basic", "a") ' lngPos = 9 lngPos = InstrRev("Visual Basic", "a", 6) ' lngPos = 5 (starting at position 6) lngPos = InstrRev("Visual Basic", "A") ' lngPos = 0 (case-sensitive search) lngPos = InstrRev("Visual Basic", "A", , 1) ' lngPos = 9 (case-insensitive search) ' Note that this last example leaves a placeholder for the start argument

Notes on Instr and InstrRev:

Â· Something to watch out for is that while Instr and InstrRev both accomplish the same thing (except that InstrRev processes a string from last character to first, while Instr processes a string from first character to last), the arguments to these functions are specified in a different order. The Instr arguments are (start, string1, string2, compare) whereas the InstrRev arguments are (string1, string2, start, compare).

Â· The Instr function has been around since the earlier days of BASIC, whereas InstrRev was not introduced until VB 6.

Â· Built-in "vb" constants can be used for the compare argument:

vbBinaryCompare for 0 (case-sensitive search)
vbTextCompare for 1 (case-insensitive search)

Function:	String$ (or String)
Description:	Returns a string containing a repeating character string of the length specified.
Syntax:	*String$(number, character)* The String$ function syntax has these parts: *number* Required; Long. Length of the returned string. *character* Required; Variant. This argument can either be a number from 0 to 255 (representing the ASCII character code* of the character to be repeated) or a string expression whose first character is used to build the return string.
Examples:	strTest = String$(5, "a") ' strTest = "aaaaa" strTest = String$(5, 97) ' strTest = "aaaaa" (97 is the ASCII code for "a")

* A list of the ASCII character codes is presented at the end of this topic.

Function:	Space$ (or Space)
Description:	Returns a string containing the specified number of blank spaces.
Syntax:	*Space$(number)* Where number is the number of blank spaces desired.
Examples:	strTest = Space$(5) ' strTest = " "

Function:	Replace$ (or Replace)
Description:	Returns a string in which a specified substring has been replaced with another substring a specified number of times. Introduced in VB 6.
Syntax:	*Replace$(expression, find, replacewith[, start[, count[, compare]]])* The Replace$ function syntax has these parts: *expression* Required. String expression containing substring to replace. *find* Required. Substring being searched for. *replacewith* Required. Replacement substring. *start* Optional. Position within expression where substring search is to begin. If omitted, 1 is assumed. *count* Optional. Number of substring substitutions to perform. If omitted, the default value is â€“1, which means make all possible substitutions. *compare* Optional. Numeric value indicating the kind of comparison to use when evaluating substrings. (0 = case sensitive, 1 = case-insensitive) Built-in "vb" constants can be used for the compare argument: vbBinaryCompare for 0 (case-sensitive search) vbTextCompare for 1 (case-insensitive search)
Examples:	strNewDate = Replace$("08/31/2001", "/", "-") ' strNewDate = "08-31-2001"

Function:	StrReverse$ (or StrReverse)
Description:	Returns a string in which the character order of a specified string is reversed. Introduced in VB 6.
Syntax:	*StrReverse$(string)*
Examples:	strTest = StrReverse$("Visual Basic") ' strTest = "cisaBlausiV"

Function:	LTrim$ (or LTrim)
Description:	Removes leading blank spaces from a string.
Syntax:	*LTrim$(string)*
Examples:	strTest = LTrim$(" Visual Basic ") ' strTest = "Visual Basic "

Function:	RTrim$ (or RTrim)
Description:	Removes trailing blank spaces from a string.
Syntax:	*RTrim$(string)*
Examples:	strTest = RTrim$("Visual Basic") ' strTest = "Visual Basic"

Function:	Trim$ (or Trim)
Description:	Removes both leading and trailing blank spaces from a string.
Syntax:	*Trim$(string)*
Examples:	strTest = Trim$(" Visual Basic ") ' strTest = "Visual Basic" ' Note: Trim$(x) accomplishes the same thing as LTrim$(RTrim$(x))

Function:	Asc
Description:	Returns an Integer representing the ASCII character code corresponding to the first letter in a string.
Syntax:	*Asc(string)*
Examples:	intCode = Asc("*") ' intCode = 42 intCode = Asc("ABC") ' intCode = 65

Function:	Chr$ (or Chr)
Description:	Returns a string containing the character associated with the specified character code.
Syntax:	*Chr$(charcode)* Where charcode is a number from 0 to 255 that identifies the character.
Examples:	strChar = Chr$(65) ' strChar = "A"

ASCII Character Codes (0 through 127)

0	N/A	32	[space]	64	@	96	`
1	N/A	33	!	65	A	97	a
2	N/A	34	"	66	B	98	b
3	N/A	35	#	67	C	99	c
4	N/A	36	$	68	D	100	d
5	N/A	37	%	69	E	101	e
6	N/A	38	&	70	F	102	f
7	N/A	39	'	71	G	103	g
8	(backspace)	40	(	72	H	104	h
9	(tab)	41	)	73	I	105	i
10	(line feed)	42	*	74	J	106	j
11	N/A	43	+	75	K	107	k
12	N/A	44	,	76	L	108	l
13	(carriage return)	45	-	77	M	109	m
14	N/A	46	.	78	N	110	n
15	N/A	47	/	79	O	111	o
16	N/A	48	0	80	P	112	p
17	N/A	49	1	81	Q	113	q
18	N/A	50	2	82	R	114	r
19	N/A	51	3	83	S	115	s
20	N/A	52	4	84	T	116	t
21	N/A	53	5	85	U	117	u
22	N/A	54	6	86	V	118	v
23	N/A	55	7	87	W	119	w
24	N/A	56	8	88	X	120	x
25	N/A	57	9	89	Y	121	y
26	N/A	58	:	90	Z	122	z
27	N/A	59	;	91	[	123	{
28	N/A	60	<	92	\	124	\|
29	N/A	61	=	93	]	125	}
30	N/A	62	>	94	^	126	~
31	N/A	63	?	95	_	127	N/A

N/A = These characters aren't supported by Microsoft Windows.

ASCII Character Codes (128 through 255)

128	N/A	160	[space]	192	Ã€	224	Ã
129	N/A	161	Â¡	193	Ã	225	Ã¡
130	N/A	162	Â¢	194	Ã‚	226	Ã¢
131	N/A	163	Â£	195	Ãƒ	227	Ã£
132	N/A	164	Â¤	196	Ã„	228	Ã¤
133	N/A	165	Â¥	197	Ã…	229	Ã¥
134	N/A	166	Â¦	198	Ã†	230	Ã¦
135	N/A	167	Â§	199	Ã‡	231	Ã§
136	N/A	168	Â¨	200	Ãˆ	232	Ã¨
137	N/A	169	Â©	201	Ã‰	233	Ã©
138	N/A	170	Âª	202	ÃŠ	234	Ãª
139	N/A	171	Â«	203	Ã‹	235	Ã«
140	N/A	172	Â¬	204	ÃŒ	236	Ã¬
141	N/A	173	Â	205	Ã	237	Ã
142	N/A	174	Â®	206	ÃŽ	238	Ã®
143	N/A	175	Â¯	207	Ã	239	Ã¯
144	N/A	176	Â°	208	Ã	240	Ã°
145	N/A	177	Â±	209	Ã‘	241	Ã±
146	N/A	178	Â²	210	Ã’	242	Ã²
147	N/A	179	Â³	211	Ã“	243	Ã³
148	N/A	180	Â´	212	Ã”	244	Ã´
149	N/A	181	Âµ	213	Ã•	245	Ãµ
150	N/A	182	Â¶	214	Ã–	246	Ã¶
151	N/A	183	Â·	215	Ã—	247	Ã·
152	N/A	184	Â¸	216	Ã˜	248	Ã¸
153	N/A	185	Â¹	217	Ã™	249	Ã¹
154	N/A	186	Âº	218	Ãš	250	Ãº
155	N/A	187	Â»	219	Ã›	251	Ã»
156	N/A	188	Â¼	220	Ãœ	252	Ã¼
157	N/A	189	Â½	221	Ã	253	Ã½
158	N/A	190	Â¾	222	Ãž	254	Ã¾
159	N/A	191	Â¿	223	ÃŸ	255	Ã¿

N/A = These characters aren't supported by Microsoft Windows.

The values in the table are the Windows default. However, values in the ANSI character set above 127 are determined by the code page specific to your operating system.

"Try It" Example

To demonstrate the built-in string functions, set up a "Try It" project, and place the following code in the cmdTryIt_Click event:

Private Sub cmdTryIt_Click()
Dim strTest As String
strTest = InputBox("Please enter a string:")
Print "Using Len:"; Tab(25); Len(strTest)
Print "Using Mid$:"; Tab(25); Mid$(strTest, 3, 4)
Print "Using Left$:"; Tab(25); Left$(strTest, 3)
Print "Using Right$:"; Tab(25); Right$(strTest, 2)
Print "Using UCase$:"; Tab(25); UCase$(strTest)
Print "Using LCase$:"; Tab(25); LCase$(strTest)
Print "Using Instr:"; Tab(25); InStr(strTest, "a")
Print "Using InstrRev:"; Tab(25); InStrRev(strTest, "a")
Print "Using LTrim$:"; Tab(25); LTrim$(strTest)
Print "Using RTrim$:"; Tab(25); RTrim$(strTest)
Print "Using Trim$:"; Tab(25); Trim$(strTest)
Print "Using String$ & Space$:"; Tab(25); String$(3, "*") _
& Space$(2) _
& Trim$(strTest) _
& Space$(2) _
& String$(3, 42)
Print "Using Replace$:"; Tab(25); Replace$(strTest, "a", "*")
Print "Using StrReverse$:"; Tab(25); StrReverse$(strTest)
Print "Using Asc:"; Tab(25); Asc(strTest)
End Sub

Run the project and click the "Try It" button. When the input box comes up, enter a string of your choice.

Some tips on what to enter:

To see the effects of UCase$ and LCase$, enter a mixed case string.
To compare Instr and InstrRev, enter a string with at least two "a"s in it.
To see the effects of LTrim$, RTrim$, and Trim$, enter a string with leading and/or trailing spaces.
To see the effect of Replace$, enter a string with at least one "a" in it.

You can also modify the code and run the project to see if you get the results you expect.

The screen shot below shows a run of the project using the code above where the string Visual Basic was input:

Download the VB project code for the example above here.

Printer Friendly
417720 reads

Comments

Mon, 08/23/2010 - 06:20 — applied (not verified)

Sending a string through mscomm

Hello,
I would like to know how i can send a string like 4352119 out of the serial port at a baud rate of say 9600. How is it going to be sent? Are they going to be sent out individually, like 4 will be sent out followed by 3 and so on, with a start and stop bit for each one ? I'm using VB6
MSComm1.Output = "4352119"

Wed, 08/18/2010 - 06:57 — Anonymous (not verified)

Find string

Very new to VB. Need code to copy the string that follows "PMT INFO:TRN*1*" to the next * to a cell right beside this data field in excel. So would need 123456789 in the example below. The number of characters to return will vary and in some cases will not be present at all. The number of rows to search will also vary. Please help...

Payor Name DES:CUSTEFTS ID:XXXXX2061 INDN:Practice Name CO ID:1066033492 CCD PMT INFO:TRN*1*123456789*555555555- 44345 0341 12/30 UNPOSTED NO REASON. CN

Tue, 08/17/2010 - 16:23 — Anonymous (not verified)

help pls

in textbox i use this code
Private Sub Text1_Change()
' Allow only numbers."
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
If Not (ch >= "1" And ch <= "4") Then
' Cancel the character.
KeyAscii = 0
End If
End Sub
but i cand use delete or backspace....
pls help me i need to use the delete or backspace.????? thanks

Tue, 08/17/2010 - 15:52 — jo (not verified)

help pls

Wed, 09/01/2010 - 05:23 — Anonymous (not verified)

Private Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
If Not (ch >= "1" And ch <= "4") Then
' Cancel the character.

If KeyAscii >= 32 Then ' checks for control keys
KeyAscii = 0
End If

End If
End Sub

Hope this helps : )

Wed, 08/04/2010 - 21:05 — Anonymous (not verified)

Hello... Anybody there to help me please

I would like to copy from a access table to another table ( two text value )

vertdb.Execute "insert into osdbox(clid,byval,sellval,qty,rate,hcp,phbyval,scode,scrip)values('" & rsm4!clid & "'," & rsm4!byval & "," & rsm4!sellval & "," & rsm4!qty & "," & rsm4!Rate & "," & rsm4!hcp & "," & rsm4!phbyval & ",'" & rsm4!scode & "'," & " '," & rsm4!scrip & "')"

the problem is before scrip(test value) ' is comming .

please give me the correct command to remove ' symbol from scrip

Thu, 07/22/2010 - 10:29 — Anonymous (not verified)

2 know about string functions

i want 2 know a brief description about string functions....................................

Thu, 07/15/2010 - 06:54 — Alessandro (not verified)

How to avoid "&" character to interrupt string.

I have a VBA code which allows me to pick fields from a DB and send email.
It sounds like: Me.Email.HyperlinkAddress = "mailto:" & RecipientName & "<" & RecipientAddress & ">"
The problem is that if the RecipientName field has the "&" character in it, the string is truncated at that point.
I have tried to use Replace and Format functions with Chr(38) code, but without success.
How can I do? Thank you.

Sat, 07/10/2010 - 00:46 — Subin (not verified)

Test

Sub CheckTCNumber()
Dim Count As Integer
Dim Num As Integer
Dim LastRow As Integer
Dim TCString As String
Dim TCScenario As String
LastRow = ActiveSheet.UsedRange.Rows.Count
Num = 1
Count = 1
For rwNumber = 3 To LastRow

If ActiveSheet.Cells(rwNumber, 1).Value <> "" Then
If Count < 10 Then
TCString = "TC00" + Trim(Str$(Count))
Else
TCString = "TC0" + Trim(Str$(Count))
End If

ActiveSheet.Cells(rwNumber, 1).Value = TCString
Count = Count + 1
TCScenario = ActiveSheet.Cells(rwNumber, 6).Value
Mid$(TCScenario, 1, 5) = TCString
ActiveSheet.Cells(rwNumber, 6).Value = TCScenario
End If
Next rwNumber
MsgBox "Test case number checked"

End Sub

Sun, 07/04/2010 - 13:13 — it angel (not verified)

Help Me Please

Dear Friends

I m new in vb 2005. i want that

1. i have to enter a sentence to a text field and when i press a button then my given sentence will split into words and replace these words from mysql database

example: i have entered "i am fine and ok"

then "i" will be converted to "eye"

"am" to "m"

"fine" to "f9"

"and" to "n"

"ok" to "okay"

and this show sentence again "eye m f9 n okay" on text field

but these words and replacing words will be taken from mysql database

Please help me sir .......

regards :::: it eagle

Wed, 07/14/2010 - 05:08 — Anonymous (not verified)

if your database includes

if your database includes "firstword" and "secondword".. for example "I" and "eye"..
then you have to write down the whole database into an array.. like firstword() and secondword()

so you can just say: "

for i = 0 to count(firstword)

strString = replace(strString, firstword(i), secondword(i))

next
"

the result will be : "eye m f9 n okay"!

Sat, 07/03/2010 - 01:23 — S.S.Sahoo (not verified)

Very useful site

Hi......All
Thai is S.S.Sahoo. i am working as a software engg.
today i vought this site through google.
& I found that this is a best site for those who want to learn some thing.
And also i learnt a lot from this site........i will definitely use this site for learn more.& suggest you people to go through this site & spend some time ,if u r serious .
Thanks
Jipu

Mon, 06/28/2010 - 04:52 — Anonymous (not verified)

hi i want to search a name

hi i want to search a name which is of length aroung 40 character from a sql database using the recordset .
plz help me
i just needed it for my project

Tue, 06/22/2010 - 23:59 — Karthik Boddu (not verified)

Thanks a lot for this

Thanks a lot for this information on VB string functions.

Wed, 06/02/2010 - 08:03 — abeera (not verified)

HELPPPPP

gr8 tutorial but i need some help...i want to manipulate each character separatly entered in the textbox....actually i want to rite a ceaser cipher algo in VB n so for that i have to consider each character separately...kindly help me out on how to do it....thx

Thu, 06/17/2010 - 08:52 — Anonymous (not verified)

Do your own work you dork!

You're assigned homework for a purpose. Spend the time to learn how to do your assignment yourself.

Although...If you can't even spell "write" correctly you're probably screwed anyways.

Tue, 03/23/2010 - 20:44 — biplab kumar shome (not verified)

comments

wow! this page has been really useful for me. in this single page i got all the notes which i required about string functions. thanks a lot to the writer.

Sat, 03/20/2010 - 21:25 — Anonymous (not verified)

Hi All, I have an

Hi All,

I have an assignment where I have to validate a password using the IsValalid function which should accept a string as its argument and return a Boolean value. The password must be at least 6 characters long and have at least one numeric digit and at least one alphbetic character. If the password is valid, the function should return True. Otherwise, it should return false. Any help would be greaty appreciated. Right now I have the design set for input to be in an inputbox but am lost how to accomplish all these validations. Thanks in advance!

Mon, 03/01/2010 - 12:17 — sazeni (not verified)

great post,super blog. Made

great post,super blog. Made exercises. Help a lot. Thanks

Wed, 02/17/2010 - 04:01 — Anonymous (not verified)

hi i have a problem in

hi i have a problem in getting the acronym in visual basic using the string....

Tue, 02/09/2010 - 09:13 — Anonymous (not verified)

Additional exercises chapter 4 pg 89 of the workbook

hi,

i cant figure out the code to read in reverse. i would really like some help with it.

thank you.

Fri, 02/26/2010 - 03:40 — Anonymous (not verified)

VB6

what code that allow the user to search the details about the word..for example, i want to search the name of singer specifically Regine Velasquez....then it will display her albums and when it was publish..the output comes out in listbox...thx for ur help ahead...

Fri, 02/05/2010 - 07:13 — maya (not verified)

simply understandable!!!!

This page is really nice and helped me a lot to know the use of code and how to use those code in our program. Thanks for doing this excellent job.

Fri, 01/29/2010 - 12:21 — Anonymous (not verified)

MS Access form filter

How can I limit records used in a form to field starting with "S"?

Thu, 01/21/2010 - 06:34 — ninjo (not verified)

hey

how to search a record even if the record that you are finding is in proper case and you type in the searchtxtbox a lower or uppercases entries?

Wed, 01/13/2010 - 06:02 — Anonymous (not verified)

writing frequency codes

can someone hel with frequency code for VB Program, urgent pls

Wed, 01/13/2010 - 05:55 — Anonymous (not verified)

help

can u help me with the frequency codes in Vb

Fri, 01/08/2010 - 05:56 — Anonymous (not verified)

hi all, im a new

hi all,
im a new in vb6 and im working with a program that uses database could someone helpme on how to link the database access
in corresponding textbox same as when im adding data in vb6 gui it will save on my database using a command? any responce
was greatfully appriciated..

Tue, 01/19/2010 - 18:50 — boggs (not verified)

response

try these sites.
www.vbexplorer.com
www.vbtutor.net
There are several ways to connect your form to a database..
through:
DAO "the most basic"
ADODC

Fri, 01/08/2010 - 01:11 — Pamuji (not verified)

Would you like to help me.

Would you like to help me. how to make mirror text in vb6..thank's before..

Wed, 12/30/2009 - 08:48 — Anonymous (not verified)

Im in the middle of making

Im in the middle of making my program, It is where u count the number of characters in a 2 certain textbox like the Len function and then u add their sum which will show in another textbox . What code should i use in the command button? HELP ASAP! TNX,

Wed, 12/30/2009 - 04:45 — Anonymous (not verified)

EXCELLENT

Sun, 12/27/2009 - 03:54 — dee (not verified)

need help parsing strings

hello all,
please show me how to display the comma separated string : "abc, 345-101,tr-987" .
in my program, im entering the value into a textbox, using the split() function im splitting based on " , "

code:
Dim values As String
values = TextBox1.Text
Dim str As String() = Nothing
str = values.Split(",")

My problem is i dunno how to show the separated parts of the string into 3 different textboxes... TextBox2 and TextBox3 and Text TextBox4.
Thankyou!

Sat, 01/16/2010 - 13:21 — FaTe (not verified)

How to use split

Dim Values As String 'Values is a string input Values = TextBox1.Text Dim str as Variant 'str however is an Array() so we declare it as Variant str = Split(Values,",") ' Split Values by the comer value , Text1 = str(0) 'Now we can assign the textboxes values. Text2 = str(1) 'Remember an Array() always starts from 0 Text3 = str(2) Text4 = str(3)

Enjoy

Fri, 12/18/2009 - 02:32 — davitz38 (not verified)

Pretty cool! I use this

Pretty cool!
I use this string length tool to get the length of a string, pretty useful!
David

Thu, 12/17/2009 - 06:27 — Irsan (not verified)

Thank you!

Wow, it accelarates my VBA-skills tremendeously! Thanks for the efforts!

Sun, 11/08/2009 - 11:03 — Trying2 (not verified)

How to read the filename from the pathname

Hi,

I wanted to read the filename from a pathname. For, example:

Pathname: "C:\Users\Admin\Desktop\Wrk\Virtual Graphs\VB Work\Work from Sep 09\Projection.img"

I need to get the filename "Projection"

Please help.

Sat, 01/16/2010 - 17:58 — FaTeY (not verified)

How to use split

Again,,,
Dim PathName as string 'Define your original path as a string Dim PathBroken as Variant 'Array for braking your path into pieces Dim FileName as Variant 'The end result filename you so desire :P PathName = "C:\Users\Admin\Desktop\Wrk\Virtual Graphs\VB Work\Work from Sep 09\Projection.img" PathBroken = Split(pathName, "\") 'Split the Path by \ 'Now we want the last piece of the data in PathBroken so 'we use Ubound() which tells us the amount of pieces in the split array 'So we get PathBroken( the last piece) 'for further note Lbound() returns the first piece FileName = PathBroken(Ubound(PathBroken))

Mon, 11/09/2009 - 03:42 — AkhlD (not verified)

How to read the filename from the pathname

we gat the path as Pathname: "C:\Users\Admin\Desktop\Wrk\Virtual Graphs\VB Work\Work from Sep 09\Projection.img"

so use the InstrRev with yer path . ie,

Strlen = Len(pathname)
Intpos = InstrRev(pathname,"\")
Intlens = len - Intpos
filename = Mid(pathname,Intpos,Intlens)
MsgBox "Hurraaaayy we gat the file name : " &filename

now filename = "\Projection.img" enjoy !

Sat, 10/24/2009 - 07:39 — Anonymous (not verified)

Unicode

Can anybody help? I want to make Unicode character (like Chr(Number) but in unicode).

Wed, 10/14/2009 - 06:51 — Anonymous (not verified)

help me

please help me to make a program of a material directory system using vb and database
in a warehouse of an electronic company

Thu, 08/13/2009 - 00:59 — Anonymous (not verified)

can someone here help

can someone here help me...
i need a codes for log in system with ms access database for vb6 with multiple users..send to my email pls....
gurl_lovely_28@yahoo.com

Tue, 08/11/2009 - 06:20 — Kiea (not verified)

com

I want

Fri, 08/07/2009 - 11:53 — Mike Blackford (not verified)

Counter...

Hi, my name is Mike and I am looking for code that will count the letters in a text box, then display the number of characters in a label. Please help me out. Thanks.

Fri, 11/06/2009 - 23:51 — Tanmay Majumder (not verified)

Its to easy..........

Assume ....

You have a textbox named text1, and a label named label1.

Then write this code in the change event of the textbox.

label1.caption=str(len(me.text1.text))

if you don't want to count the left spaces then.

label1.caption=str(len(trim(me.text1.text)))

Thank you......

If you want more i will help you. Just mail me..... kingsonprisonic@gmail.com

Mon, 08/17/2009 - 08:57 — Anonymous (not verified)

Label1.Caption =

Label1.Caption = Len(Textbox.text)

Mon, 08/17/2009 - 08:58 — Anonymous (not verified)

Solution

Label1.Caption = Len(Textbox.text)

Tue, 08/04/2009 - 00:31 — eragon (not verified)

Please mail me how to modify registry with vb 6.0

Help!!!!!!!!!
Please write a program to modify registry and send me coding for this program and how to write

Wed, 10/28/2009 - 10:24 — Anonymous (not verified)

VB6 Registry Functions

VB6 has its own set of registry functions. Search in VB6 Help.

Fri, 07/17/2009 - 10:19 — Anonymous (not verified)

To convert string into

To convert string into Upercase the first letter and lowercase the rest:

Dim str As String

str="san diego"
StrConv(str, vbProperCase)

= "San Diego"

Tue, 07/07/2009 - 06:33 — Enis (not verified)

Hey, thanks this helpful

Hey, thanks this helpful documents.
you did a good work.

Wed, 06/17/2009 - 14:56 — Anonymous

Limit number characters in one line of text file

I Need help!
I have a tring as "I am working on a new assignment with Visual basic 6.0 AAAAAAAAAAAAAAAAAAAAAA"
I try to split the string in Text file; each line have no more than 15 characters; first, split the string at space not in word; second, the word is longer than 15, split the word. How can I make the output as the one below:
I am working
on a new
assignment with
Visual basic
6.0
AAAAAAAAAAAAAAA
AAAAAAA
Please help, Thanks a lot...

Tue, 09/08/2009 - 20:52 — Anonymous (not verified)

try this

if u are using a textbox, it's just simple, just go to the properties of text box then set the max length to 15 and then set the multiline to true. i hope i'd help you even it's to very late. hehehe

Tue, 06/02/2009 - 06:25 — Anonymous (not verified)

Extracting data till the end

I want to extract data through VB code. We have a mail and the mail body content is stored in a stord in a string. there is tag called "description". Description data is a string, with no specific length. We want to extract that data.

Currently its giving the data but truncating some where in the middle and so am not getting the complete text present in 'description' tag/
Any suggestions as how can we do it.

Thanks

Sat, 05/30/2009 - 03:27 — prasad_renuka (not verified)

how to find that the perticular character in a string in null.

hi good morning, is the string for example. 8th character is null but how to find out.

Sat, 11/28/2009 - 06:38 — rhod (not verified)

answer

gumagamit kba ng database d2
ok kung sa database

this code...

with adodc1.recordset
.movefirst
do while not .eof
if text1.text="" and len(text1.text)=8 then
exit sub
end if
.movenext
loop

end with

Thu, 05/28/2009 - 04:05 — Anonymous (not verified)

comparision of two arrays

Hi the content of this article was so good and useful...i want to know how v will compare or search for one item in one array with the another array

for example :

array a consists of 1,2,3,4,5
array b consists of 2,5, 7, 9

now i want to compare array a and b and need to get a mesage box as 2 and 5 exists in array a

so anyone can please help me in this....

Mon, 11/30/2009 - 08:10 — rodel (not verified)

the soulution of ur problem

example.... .but convert into a text

ok first
dim a as integer
dim s as string
a=a+1
s=text2.text
for a=1 to len(text1)
if instr(text2.text,text2.text) then
msgbox s & "existing number"
s=mid(s,a,1)
end if
next

take note you must convert into array

Sat, 11/28/2009 - 06:31 — rhod (not verified)

answer

ok in a msgbox you must variable the number exist example
if a=b then
msgbox a & b & "is already exist"
else
exit sub
end if

like dat' ok later....i will give you a programm like dat'''

Sun, 05/31/2009 - 16:53 — Anonymous (not verified)

dim i, k, x as interger dim

dim i, k, x as interger
dim arrayC as integer
x = 0
for i=0 to ubound(arrayA)
for k=0 to ubound(arrayB)
if arrayB(k) = arrayA(i) then
arrayC(x) = arrayB(k)
x = x + 1
end if
next
next

arrayC will contain values that are repeated in both arrays. (ie for the example arrays you provided arrayC will contain (2,5)

Thu, 05/21/2009 - 08:23 — Anonymous (not verified)

thank you

Tue, 05/12/2009 - 11:38 — djcowbell (not verified)

need an equivalent to

need an equivalent to foxpro's padleft?

Mon, 05/04/2009 - 23:30 — Rakesh Thakre (not verified)

Code for seprtate character And Number from String

the below code remove the character and number indiviually due to that we can easily seprated the numbers and string...

code as below

Dim revs As String
Dim str1 As String
Dim str2 As String
revs = StrReverse(txtChanginItemCode.Text)
str2 = StrReverse(Val(revs))
str1 = StrReverse(Replace(revs, StrReverse(str2), ""))

Fri, 04/10/2009 - 02:32 — Anonymous (not verified)

references needed for string functions

In vb6 do I need to include any references to allow me to use these string functions.

Wed, 04/01/2009 - 04:49 — profcharles

Too Helpful

The information contained therein is very helpful both as reference or for reading and study purposes. This should be awarded SITE OF TE YEAR 2009. :)

Charles

Wed, 04/01/2009 - 00:04 — Indu (not verified)

check for particular string against a set of values

i need to check for a particular string against a set of string values:Can anybody help me in this

eg:-

If arrayCol(k, 0) <> "do" or "jo" or "uo" Then
MsgBox "Department cannot be Null. Line No. " & totItems, vbCritical, "ALERT"
Else
----

Mon, 04/27/2009 - 15:35 — shAnk5 (not verified)

Navigate To

Guides

User login

Visual Basic 6 String Functions

Comments

Post new comment

You might also find these useful: