<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	>

<channel>
	<title>Automate Excel &#187; Strings</title>
	<atom:link href="http://www.automateexcel.com/category/vba/strings-vba/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.automateexcel.com</link>
	<description>Hundreds of Excel Tips &#38; Tricks</description>
	<lastBuildDate>Mon, 21 Dec 2009 20:35:09 +0000</lastBuildDate>
	<generator>http://wordpress.org/?v=2.9.1</generator>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
			<item>
		<title>VBA: Extract Number From String</title>
		<link>http://www.automateexcel.com/2008/11/03/vba-extract-number-from-string/</link>
		<comments>http://www.automateexcel.com/2008/11/03/vba-extract-number-from-string/#comments</comments>
		<pubDate>Mon, 03 Nov 2008 16:16:49 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[extract]]></category>
		<category><![CDATA[number]]></category>
		<category><![CDATA[string]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1109</guid>
		<description><![CDATA[The following function will extract the numerical portion from a string:
Function Extract_Number_from_Text(Phrase As String) As Double
Dim Length_of_String As Integer
Dim Current_Pos As Integer
Dim Temp As String
Length_of_String = Len(Phrase)
Temp = ""
For Current_Pos = 1 To Length_of_String
If (Mid(Phrase, Current_Pos, 1) = "-") Then
  Temp = Temp &#38; Mid(Phrase, Current_Pos, 1)
End If
If (Mid(Phrase, Current_Pos, 1) = ".") Then
 [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/11/03/vba-extract-number-from-string/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>Find the nth Word in a String</title>
		<link>http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/</link>
		<comments>http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/#comments</comments>
		<pubDate>Fri, 31 Oct 2008 15:54:19 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[find]]></category>
		<category><![CDATA[string]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=1101</guid>
		<description><![CDATA[The following function will find the nth word in a string:
Function Find_nth_word(Phrase As String, n As Integer) As String
Dim Current_Pos As Long
Dim Length_of_String As Integer
Dim Current_Word_No As Integer
Find_nth_word = ""
Current_Word_No = 1
'Remove Leading Spaces
Phrase = Trim(Phrase)
Length_of_String = Len(Phrase)
For Current_Pos = 1 To Length_of_String
    If (Current_Word_No = n) Then
     [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>VBA: Calculate Acronyms from Strings</title>
		<link>http://www.automateexcel.com/2008/10/04/vba-calculate-acronyms-from-strings/</link>
		<comments>http://www.automateexcel.com/2008/10/04/vba-calculate-acronyms-from-strings/#comments</comments>
		<pubDate>Sat, 04 Oct 2008 10:45:26 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[acronyms]]></category>
		<category><![CDATA[calculate]]></category>
		<category><![CDATA[strings]]></category>
		<category><![CDATA[VBA]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=946</guid>
		<description><![CDATA[The following function evaluates Acronyms from  strings i.e it concatenates the first letter in every word in a string. E.g “trees are green” becomes “TAG”.
The routine traverses every character in a string and if it is a space then it takes the next character in the string. Before evaluating the string, it removes all [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/10/04/vba-calculate-acronyms-from-strings/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>VBA Function To Calculate Number of Words in a String</title>
		<link>http://www.automateexcel.com/2008/09/20/vba-function-to-calculate-number-of-words-in-a-string/</link>
		<comments>http://www.automateexcel.com/2008/09/20/vba-function-to-calculate-number-of-words-in-a-string/#comments</comments>
		<pubDate>Sat, 20 Sep 2008 08:19:18 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[calculate]]></category>
		<category><![CDATA[number]]></category>
		<category><![CDATA[string]]></category>
		<category><![CDATA[VBA]]></category>
		<category><![CDATA[words]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=891</guid>
		<description><![CDATA[The following VBA function counts the number of words in a string:
Function Number_of_Words(Text_String As String) As Integer
'Function counts the number of words in a string
'by looking at each character and seeing whether it is a space or not
Number_of_Words = 0
Dim String_Length As Integer
Dim Current_Character As Integer

String_Length = Len(Text_String)

For Current_Character = 1 To String_Length

If (Mid(Text_String, Current_Character, [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/09/20/vba-function-to-calculate-number-of-words-in-a-string/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>VBA: Subroutine to Reverse a String</title>
		<link>http://www.automateexcel.com/2008/09/13/vba-subroutine-to-reverse-a-string/</link>
		<comments>http://www.automateexcel.com/2008/09/13/vba-subroutine-to-reverse-a-string/#comments</comments>
		<pubDate>Sat, 13 Sep 2008 17:58:50 +0000</pubDate>
		<dc:creator>Kaps</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[reverse]]></category>
		<category><![CDATA[string]]></category>
		<category><![CDATA[subroutine]]></category>
		<category><![CDATA[VBA]]></category>

		<guid isPermaLink="false">http://www.automateexcel.com/?p=883</guid>
		<description><![CDATA[The VBA Routine below allows the user to enter a string, and is then presented with the same string backwards. For example “Monday” becomes “yadnoM”:-
Option Explicit

Private Sub CommandButton1_Click()

'Define Variables

Dim Original_String As String
Dim Reversed_String As String
Dim Next_Char As String

Dim Length As Integer
Dim Pos As Integer

'Get the Original String

Original_String = InputBox("Pls enter the original string: ")

'Find the [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2008/09/13/vba-subroutine-to-reverse-a-string/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>VBA: Remove Characters from Left or Right Side of Variable Length String</title>
		<link>http://www.automateexcel.com/2005/02/18/excel_vba_remove_n_characters_from_left/</link>
		<comments>http://www.automateexcel.com/2005/02/18/excel_vba_remove_n_characters_from_left/#comments</comments>
		<pubDate>Fri, 18 Feb 2005 13:19:19 +0000</pubDate>
		<dc:creator>Tom</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[length]]></category>
		<category><![CDATA[remove characters]]></category>
		<category><![CDATA[string]]></category>
		<category><![CDATA[VBA]]></category>

		<guid isPermaLink="false"></guid>
		<description><![CDATA[If you always know the length of a string, it&#8217;s easy to remove characters from it.  Example: If you have a string that is 10 characters and you want to remove 1 character from the Left side, simply return the right 9 characters:
msgbox Right(Mystring, 9)
This doesn&#8217;t work for a variable length string, or one [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2005/02/18/excel_vba_remove_n_characters_from_left/feed/</wfw:commentRss>
		<slash:comments>15</slash:comments>
		</item>
		<item>
		<title>VBA: Loop Through a String</title>
		<link>http://www.automateexcel.com/2005/01/11/excel_vba_loop_through_a_string_1/</link>
		<comments>http://www.automateexcel.com/2005/01/11/excel_vba_loop_through_a_string_1/#comments</comments>
		<pubDate>Tue, 11 Jan 2005 13:03:35 +0000</pubDate>
		<dc:creator>Tom</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[loop]]></category>
		<category><![CDATA[string]]></category>

		<guid isPermaLink="false"></guid>
		<description><![CDATA[You can perform logic on, or return individual characters from a string in VBA by looping through the string.
The following is an example of looping through a string using a For&#8230;Next Loop, and returning each character in a msgbox.
Sub LoopThroughString()

Dim Counter As Integer
Dim MyString As String

MyString = "AutomateExcel" 'define string

For Counter = 1 To Len(MyString)
 [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2005/01/11/excel_vba_loop_through_a_string_1/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>VBA: Loop Through a String</title>
		<link>http://www.automateexcel.com/2004/11/10/excel_vba_loop_through_a_string/</link>
		<comments>http://www.automateexcel.com/2004/11/10/excel_vba_loop_through_a_string/#comments</comments>
		<pubDate>Wed, 10 Nov 2004 06:45:48 +0000</pubDate>
		<dc:creator>Tom</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[loop]]></category>
		<category><![CDATA[string]]></category>

		<guid isPermaLink="false"></guid>
		<description><![CDATA[Here are a couple ways of looping through a string, or reading a string from a Macro.
To use either example, simply replace the text that the variable named LookInHere is equal to.  There&#8217;s a comment in the code to give you a hint.
Read Every Character in a String
This example reads every character in a [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2004/11/10/excel_vba_loop_through_a_string/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>VBA: Add Spaces to a String &#8211; Space()</title>
		<link>http://www.automateexcel.com/2004/10/06/excel_vba_add_spaces_to_a_string_space/</link>
		<comments>http://www.automateexcel.com/2004/10/06/excel_vba_add_spaces_to_a_string_space/#comments</comments>
		<pubDate>Wed, 06 Oct 2004 20:00:19 +0000</pubDate>
		<dc:creator>Tom</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[space]]></category>
		<category><![CDATA[string]]></category>

		<guid isPermaLink="false"></guid>
		<description><![CDATA[A common way to add spaces to a string with VBA is to use blank spaces between quotation marks.  The following example adds ten spaces between the word &#8220;Hello&#8221; and &#8220;World&#8221;:
Sub AddSpaces()

Dim MyString As String

MyString = "Hello" &#38; "          " &#38; "World"
MsgBox MyString

End Sub
A more intuitive way to add spaces to a string is to [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2004/10/06/excel_vba_add_spaces_to_a_string_space/feed/</wfw:commentRss>
		<slash:comments>2</slash:comments>
		</item>
		<item>
		<title>VBA: Force Proper, Upper, or Lower case automatically</title>
		<link>http://www.automateexcel.com/2004/08/14/excel_vba_force_proper_upper_or_lower_ca/</link>
		<comments>http://www.automateexcel.com/2004/08/14/excel_vba_force_proper_upper_or_lower_ca/#comments</comments>
		<pubDate>Sat, 14 Aug 2004 00:33:19 +0000</pubDate>
		<dc:creator>Tom</dc:creator>
				<category><![CDATA[Strings]]></category>
		<category><![CDATA[lower]]></category>
		<category><![CDATA[proper]]></category>
		<category><![CDATA[upper]]></category>
		<category><![CDATA[VBA]]></category>

		<guid isPermaLink="false"></guid>
		<description><![CDATA[Do you need to automatically change a cells text to Proper, Upper, or Lower case after the user enters it?  There are multiple way to accomplish this, and multiple requirements possible.  Here is an example that automatically changes everything after it&#8217;s entered in a particular column.  Hopefully you can build from this [...]]]></description>
		<wfw:commentRss>http://www.automateexcel.com/2004/08/14/excel_vba_force_proper_upper_or_lower_ca/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
	</channel>
</rss>
