You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Funkcijas darbam ar tekstu.<br />
173<br />
19.7.tabula<br />
Funkcija Veicamā darbība<br />
StrComp Salīdzināt divus tekstus<br />
LCase, Ucase Konvertēt uz lielajiem vai mazajiem burtiem<br />
Space, String Izveidot tekstu, kas sastāv no kāda simbola atkārtota vairākas reizes<br />
Len Atrast teksta garumu<br />
Format Formatēt tekstu<br />
Instr, Left, Ltrim, Mid, Right, Rtrim,<br />
Trim<br />
Manipulēt ar tekstu<br />
StrConv Konvertēt tekstu<br />
Dots piemērs, kas atrod tekstā pēdējo vārdu un novieto to teksta sākumā:<br />
Private Sub cmdReverse_Click()<br />
Dim strFirst As String<br />
Dim strLast As String<br />
Dim intSpace As Integer<br />
Dim intLastSpace As Integer<br />
Dim strName As String<br />
strName = InputBox(prompt:= "Ievadiet tekstu:")<br />
'atrod pēdējo tukšumu<br />
intSpace = 0<br />
Do<br />
intLastSpace = intSpace<br />
intSpace = InStr(intLastSpace + 1, strName, " ")<br />
Loop While intSpace 0<br />
'atdala pēdējo vārdu<br />
strFirst = Left(strName, intLastSpace - 1)<br />
strLast = Right(strName, Len(strName) - intLastSpace)<br />
'uzraksta pēdējo vārdu pirmo<br />
MsgBox strLast & " " & strFirst<br />
End Sub<br />
© Vladimirs Ivanovs, 2007
Change language