<?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/tag/tekst/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/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>Изменение регистра текста</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>Копирование и вставка текста в MSFlexGrid</title>
		<link>http://www.vbfaq.ru/2009/10/kopirovanie-i-vstavka-teksta-v-msflexgrid/</link>
		<comments>http://www.vbfaq.ru/2009/10/kopirovanie-i-vstavka-teksta-v-msflexgrid/#comments</comments>
		<pubDate>Sun, 25 Oct 2009 04:00:02 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[excel]]></category>
		<category><![CDATA[msflexgrid]]></category>
		<category><![CDATA[вставка]]></category>
		<category><![CDATA[копирование]]></category>
		<category><![CDATA[текст]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=255</guid>
		<description><![CDATA[Копирование и вставка текста в MSFlexGrid Sub CopyClipboard() On Error Resume Next Dim xStart As Integer, yStart As Integer Dim xEnd As Integer, yEnd As Integer Dim i As Integer, j As Integer Dim strClipboard As String With Screen.ActiveForm.ActiveControl 'координаты верхнего левого угла диапазона копирования xStart = .Col yStart = .Row 'координаты нижнего правого угла [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/10/kopirovanie-i-vstavka-teksta-v-msflexgrid/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Запись текста в ячейку FlexGrid</title>
		<link>http://www.vbfaq.ru/2009/10/zapis-teksta-v-yachejku-flexgrid/</link>
		<comments>http://www.vbfaq.ru/2009/10/zapis-teksta-v-yachejku-flexgrid/#comments</comments>
		<pubDate>Mon, 12 Oct 2009 04:00:47 +0000</pubDate>
		<dc:creator>Александр</dc:creator>
				<category><![CDATA[Разное]]></category>
		<category><![CDATA[flexgrid]]></category>
		<category><![CDATA[запись]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[ячейка]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=295</guid>
		<description><![CDATA[Запись текста в ячейку FlexGrid Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 46 Then MSFlexGrid1.Text = "" End If End Sub Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If MSFlexGrid1.Row < MSFlexGrid1.Rows - 1 Then MSFlexGrid1.Row = MSFlexGrid1.Row + 1 End If Exit Sub End If If KeyAscii [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/10/zapis-teksta-v-yachejku-flexgrid/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Загрузка текста из файла в TextBox</title>
		<link>http://www.vbfaq.ru/2009/04/zagruzka-teksta-iz-fajla-v-textbox/</link>
		<comments>http://www.vbfaq.ru/2009/04/zagruzka-teksta-iz-fajla-v-textbox/#comments</comments>
		<pubDate>Fri, 17 Apr 2009 08:04:04 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[загрузка]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[файл]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=205</guid>
		<description><![CDATA[Загрузка текста из файла в TextBox Private Sub Form_Load() Dim Fn As Long Fn = FreeFile Open "имя файла" For Input As Fn Text1.Text = Input(LOF(Fn), Fn) Close Fn End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/04/zagruzka-teksta-iz-fajla-v-textbox/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
		</item>
		<item>
		<title>При щелчке в TextBox’е, текст автоматом выделяется</title>
		<link>http://www.vbfaq.ru/2009/01/pri-shhelchke-v-textbox%e2%80%99e-tekst-avtomatom-vydelyaetsya/</link>
		<comments>http://www.vbfaq.ru/2009/01/pri-shhelchke-v-textbox%e2%80%99e-tekst-avtomatom-vydelyaetsya/#comments</comments>
		<pubDate>Thu, 22 Jan 2009 04:00:19 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[TextBox]]></category>
		<category><![CDATA[выделение]]></category>
		<category><![CDATA[текст]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=158</guid>
		<description><![CDATA[При щелчке в TextBox’е, текст автоматом выделяется. Option Explicit Private Sub Text1_GotFocus() 'При получении текстовым полем фокуса 'Щелчком мыши или Tab, весь текст выделиться 'Удобно использовать, если данные нужно убрать из поля Text1.SelStart = 0&#038; Text1.SelLength = Len(Text1.Text) End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/pri-shhelchke-v-textbox%e2%80%99e-tekst-avtomatom-vydelyaetsya/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как напечатать текст из RichTextBox, с форматированием но без разметки?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem-no-bez-razmetki/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem-no-bez-razmetki/#comments</comments>
		<pubDate>Tue, 13 Jan 2009 04:00:16 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[RichTextBox]]></category>
		<category><![CDATA[напечатать]]></category>
		<category><![CDATA[разметка]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[форматирование]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=149</guid>
		<description><![CDATA[Как напечатать текст из RichTextBox, с форматированием но без разметки? Option Explicit Private Sub Command1_Click() RichTextBox1.SelPrint (Printer.hDC) End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem-no-bez-razmetki/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как напечатать текст из RichTextBox без форматирования?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-bez-formatirovaniya/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-bez-formatirovaniya/#comments</comments>
		<pubDate>Mon, 12 Jan 2009 04:00:34 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[RichTextBox]]></category>
		<category><![CDATA[напечатать]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[форматирование]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=148</guid>
		<description><![CDATA[Как напечатать текст из RichTextBox без форматирования? Option Explicit Private Sub Command1_Click() Printer.Print RichTextBox1.Text Printer.EndDoc End Sub]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-bez-formatirovaniya/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
		<item>
		<title>Как напечатать текст из RichTextBox, с форматированием?</title>
		<link>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem/</link>
		<comments>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem/#comments</comments>
		<pubDate>Sun, 11 Jan 2009 04:00:09 +0000</pubDate>
		<dc:creator>Chan</dc:creator>
				<category><![CDATA[RichTextBox]]></category>
		<category><![CDATA[напечатать]]></category>
		<category><![CDATA[текст]]></category>
		<category><![CDATA[форматирование]]></category>

		<guid isPermaLink="false">http://www.vbfaq.ru/?p=147</guid>
		<description><![CDATA[Как напечатать текст из RichTextBox, с форматированием? Форма: Option Explicit Private Sub Command1_Click() PrintRTF RichTextBox1, 1440, 1440, 1440, 1440 End Sub Модуль: Option Explicit Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type CharRange cpMin As Long cpMax As Long End Type Private Type FormatRange [...]]]></description>
		<wfw:commentRss>http://www.vbfaq.ru/2009/01/kak-napechatat-tekst-iz-richtextbox-s-formatirovaniem/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
		</item>
	</channel>
</rss>

