<?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>Visual Basic FAQ &#187; Строки</title>
	<atom:link href="http://www.vbfaq.ru/category/string/feed/" rel="self" type="application/rss+xml" />
	<link>http://www.vbfaq.ru</link>
	<description>База готовых кодов на Visual Basic - бесплатно, бери и используй. Научимся программировать для себя, ведь писать программы - это просто интересно. Авторы: BiT, МП41А, Chan и Desant</description>
	<lastBuildDate>Wed, 21 Sep 2011 12:01:28 +0000</lastBuildDate>
	<language>en</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.3</generator>
		<item>
		<title>Функция возвращает количество заглавных русских букв в строке</title>
		<link>http://www.vbfaq.ru/2011/03/funkciya-vozvrashhaet-kolichestvo-bukv-v-stroke/</link>
		<comments>http://www.vbfaq.ru/2011/03/funkciya-vozvrashhaet-kolichestvo-bukv-v-stroke/#comments</comments>
		<pubDate>Wed, 16 Mar 2011 10:49:01 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Задачи]]></category>
		<category><![CDATA[Строки]]></category>
		<category><![CDATA[букв]]></category>
		<category><![CDATA[возвращает]]></category>
		<category><![CDATA[заглавных]]></category>
		<category><![CDATA[количество]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=488</guid>
		<description><![CDATA[Функция возвращает количество заглавных русских букв в строке Public Function GetQuantity(ByVal strText As String) As Long Dim i As Long Dim lngQuantity As Long Dim intTempCharCode As Integer lngQuantity = 0 For i = 1 To Len(strText) Step 1 intTempCharCode = Asc(Mid(strText, i, 1)) If intTempCharCode >= 192 And intTempCharCode < = 223 Then lngQuantity [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/03/funkciya-vozvrashhaet-kolichestvo-bukv-v-stroke/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как найти в строке нужный текст</title>
		<link>http://www.vbfaq.ru/2011/01/kak-najti-v-stroke-nuzhnyj-tekst/</link>
		<comments>http://www.vbfaq.ru/2011/01/kak-najti-v-stroke-nuzhnyj-tekst/#comments</comments>
		<pubDate>Sat, 15 Jan 2011 07:32:26 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Строки]]></category>
		<category><![CDATA[поиск]]></category>
		<category><![CDATA[текст]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=427</guid>
		<description><![CDATA[Как найти в строке нужный текст Dim FN%, SPdel As Variant, txt$ Dim a1 As Variant, a2 As Variant Private Sub Command1_Click() FN = FreeFile Open "1.txt" For Input As #FN While Not EOF(FN) Line Input #FN, txt SPdel = Split(txt, ":") Select Case SPdel(0) Case "A1": a1 = SPdel(1) Case "A2": a2 = SPdel(1) [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2011/01/kak-najti-v-stroke-nuzhnyj-tekst/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Вывести во вторую строку те элементы, значения которых НЕ принадлежат диапазону [a; b]</title>
		<link>http://www.vbfaq.ru/2010/02/vyvesti-vo-vtoruyu-stroku/</link>
		<comments>http://www.vbfaq.ru/2010/02/vyvesti-vo-vtoruyu-stroku/#comments</comments>
		<pubDate>Sun, 21 Feb 2010 10:38:56 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Строки]]></category>
		<category><![CDATA[диапазон]]></category>
		<category><![CDATA[значения]]></category>
		<category><![CDATA[элементы]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=412</guid>
		<description><![CDATA[Вывести во вторую строку те элементы, значения которых НЕ принадлежат диапазону [a; b] For i=1 to N if i< a or i> b then print X(i) Next i]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2010/02/vyvesti-vo-vtoruyu-stroku/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>Изменение регистра текста</title>
		<link>http://www.vbfaq.ru/2010/01/izmenenie-registra-teksta/</link>
		<comments>http://www.vbfaq.ru/2010/01/izmenenie-registra-teksta/#comments</comments>
		<pubDate>Thu, 07 Jan 2010 04:00:35 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Строки]]></category>
		<category><![CDATA[изменение]]></category>
		<category><![CDATA[регистр]]></category>
		<category><![CDATA[текст]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=398</guid>
		<description><![CDATA[Изменение регистра текста Private Sub Form_Load() 'Преобразует строку в нижний регистр MsgBox LCase("Привет! Как дела?") 'Преобразует строку в ВЕРХНИЙ РЕГИСТР MsgBox UCase("привет! как дела?") 'Делает первый символ каждого слова ЗАГЛАВНЫМ MsgBox StrConv("привет! как дела?", vbProperCase) 'Помимо этого, функция StrConv также позволяет 'конвертировать текст в верхний и нижний регистр: 'Конвертирует строку в нижний регистр MsgBox StrConv("Привет! [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2010/01/izmenenie-registra-teksta/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>В заданном тексте найти самое длинное слово</title>
		<link>http://www.vbfaq.ru/2009/11/najti-samoe-dlinnoe-slovo/</link>
		<comments>http://www.vbfaq.ru/2009/11/najti-samoe-dlinnoe-slovo/#comments</comments>
		<pubDate>Wed, 18 Nov 2009 04:00:04 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Строки]]></category>
		<category><![CDATA[длинное]]></category>
		<category><![CDATA[поиск]]></category>
		<category><![CDATA[слово]]></category>
		<category><![CDATA[текст]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=301</guid>
		<description><![CDATA[В заданном тексте найти самое длинное слово a=split(inputbox("Вводим текст:")) iMax=len(a(0)) for i=1 to ubound(a) if len(a(i))>imax then imax=i next i msgbox a(imax)]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/11/najti-samoe-dlinnoe-slovo/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>URL Encoding. Ascii-вариант</title>
		<link>http://www.vbfaq.ru/2009/10/url-encoding-ascii-variant/</link>
		<comments>http://www.vbfaq.ru/2009/10/url-encoding-ascii-variant/#comments</comments>
		<pubDate>Fri, 23 Oct 2009 04:00:16 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Строки]]></category>
		<category><![CDATA[ascii]]></category>
		<category><![CDATA[encoding]]></category>
		<category><![CDATA[url]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=251</guid>
		<description><![CDATA[URL Encoding. Ascii-вариант Public Function URLEncode_Ascii(ByVal plain_text As String) As String Dim i As Long, ts As String, cur_char As Byte Dim reserved_symbols_allowed As String, unreserved_symbols As String Static flagTableInited As Boolean Static ascii_map(0 To 255) As String If Not flagTableInited Then ' Незарезервированные символы. ' Символы допустимые в URL unreserved_symbols = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_.~" For i [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/10/url-encoding-ascii-variant/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Извлечение чисел из строки</title>
		<link>http://www.vbfaq.ru/2009/10/izvlechenie-chisel-iz-stroki/</link>
		<comments>http://www.vbfaq.ru/2009/10/izvlechenie-chisel-iz-stroki/#comments</comments>
		<pubDate>Thu, 22 Oct 2009 04:00:48 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Строки]]></category>
		<category><![CDATA[извлечение]]></category>
		<category><![CDATA[числа]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=249</guid>
		<description><![CDATA[Извлечение чисел из строки. В строке может быть несколько чисел (совсем не обязательно целых). Требуется извлечь их оттуда. Решение для .net. К проекту добавляем модуль и в него помещаем код: Friend Function Num_Array(ByVal Origin_str As String) As String() Dim Virt_array As String() Dim Virt_num As String = "" Dim Real_array As String() Dim Real_num As [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/10/izvlechenie-chisel-iz-stroki/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как обрезать строку?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-obrezat-stroku/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-obrezat-stroku/#comments</comments>
		<pubDate>Thu, 25 Dec 2008 04:10:59 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Строки]]></category>
		<category><![CDATA[обрезать]]></category>
		<category><![CDATA[строка]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=128</guid>
		<description><![CDATA[Как обрезать строку? Можно использовать функции Left, Mid, Right. Option Explicit Dim strA As String Dim strB As String Private Sub Command1_Click() strB = Left(strA, 3) Label1.Caption = strB 'Результат: "Это" End Sub Private Sub Command2_Click() strB = Mid(strA, 4, 10) Label1.Caption = strB 'Результат: "строковая" End Sub Private Sub Command3_Click() strB = Right(strA, 10) [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-obrezat-stroku/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как удалить любые символы из строки?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-udalit-lyubye-simvoly-iz-stroki/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-udalit-lyubye-simvoly-iz-stroki/#comments</comments>
		<pubDate>Wed, 24 Dec 2008 04:10:10 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Строки]]></category>
		<category><![CDATA[символ]]></category>
		<category><![CDATA[удалить]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=127</guid>
		<description><![CDATA[Как удалить любые символы из строки? В данном случае пробелы. Option Explicit Private Sub Form_Load() Text1.Text = Replace("Ваш текст, который содержит пробелы", " ", "") End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-udalit-lyubye-simvoly-iz-stroki/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как в строчке заменить искомое слово на нужное?</title>
		<link>http://www.vbfaq.ru/2008/12/kak-v-strochke-zamenit-iskomoe-slovo-na-nuzhnoe/</link>
		<comments>http://www.vbfaq.ru/2008/12/kak-v-strochke-zamenit-iskomoe-slovo-na-nuzhnoe/#comments</comments>
		<pubDate>Tue, 23 Dec 2008 04:10:05 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[Строки]]></category>
		<category><![CDATA[заменить]]></category>
		<category><![CDATA[слово]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=126</guid>
		<description><![CDATA[Как в строчке заменить искомое слово на нужное? Option Explicit Private Sub Command1_Click() Text1.Text = Replace(Text1.Text, Text3.Text, Text2.Text) End Sub Private Sub Command2_Click() Text1.Text = Replace(Text1.Text, Text2.Text, Text3.Text) End Sub Private Sub Form_Load() Text1.Text = _ "Строка в которой ищем текст, для замены с помощью Replace" Text2.Text = "в" Text3.Text = "на" End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2008/12/kak-v-strochke-zamenit-iskomoe-slovo-na-nuzhnoe/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

