[ Enver Kikic @ 12.05.2012. 07:16 ] @
Potrebno je da u 1. textboxu upisete recenicu(neodredjen broj rijeci), i da tu recenicu racunar ispise u 2. textboxu,
samo ovoga puta sa velikim pocetnim slovom svake rijeci.

Ja sam napravio samo za prvu rijec, posto je neodredjen broj rijecu u recenici, ne znam kako bih izveo tu izvedbu da racunar
stalno ide dalje sa rijeci na rijec i da je pretvara kao ovu prvu.

Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strRecenica As String = TextBox1.Text
        Dim iPocetakDruge As Integer = strRecenica.IndexOf(" ")
        strRecenica = strRecenica.Trim

        Dim strPrva As String = strRecenica.Substring(0, 1).ToUpper & strRecenica.Substring(1, iPocetakDruge).ToLower

        TextBox1.Text = strPrva
    End Sub
End Class

[ mkaras @ 12.05.2012. 09:47 ] @
Praznine odvajaju reči jednu od druge. Prebroj koliko imaš reči i na
svaku primeni kod koji si već dao.
[ Enver Kikic @ 12.05.2012. 10:42 ] @
Ok, kako napraviti da od 2. razmaka broji slova do 3. razmaka i to sprema u array kao 1 rijec
[ Enver Kikic @ 12.05.2012. 11:19 ] @
pokusoa sma ovako napraviti

Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim br As Integer
        Dim strRecenica As String = TextBox1.Text
        Dim iPocetakDruge As Integer = strRecenica.IndexOf(" ")
        strRecenica = strRecenica.Trim

        Dim strPrva As String = strRecenica.Substring(0, 1).ToUpper & strRecenica.Substring(1, iPocetakDruge).ToLower

        TextBox1.Text = strPrva


        For i = 1 To Len(strRecenica)
            If strRecenica.Substring(i, i + 1) = " " Then
                br += 1
            End If
        Next i


        Dim strNastavak As String = strRecenica.Substring(iPocetakDruge)
        strNastavak = strNastavak.Trim

        strRecenica = strNastavak

        Dim iSljececa As Integer = strRecenica.IndexOf(" ")
        Dim strRijeci(br) As String
        If strNastavak.IndexOf(" ") <> 0 Then
            For j = 1 To br
                strRijeci(j) = strRecenica.Substring(0, 1).ToUpper & strRecenica.Substring(1, iSljececa).ToLower

            Next j
        End If

        Dim strKrajnja As String = strPrva

        For x = 1 To br
            strKrajnja = strKrajnja & strRijeci(x)
        Next x

        TextBox2.Text = strKrajnja

    End Sub
End Class


..., ali izbaciuje gresku na ovom retku

If strRecenica.Substring(i, i + 1) = " " Then
[ mkaras @ 12.05.2012. 21:07 ] @
Pokušaj ovako:
Učitaj sadržaj prvog TextBox-a i očistiš beline na početku i na kraju.
Prvi znak promeni u veliko slovo, ispitaš sledeći znak i ako mu prethodi
belina promeniš ga u veliko slovo. Kada stigneš do kraja rečenice
završio si posao.
[ Enver Kikic @ 13.05.2012. 06:58 ] @
Rijesio

Rjesenje
Code:
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strRecenica As String = TextBox1.Text
        strRecenica = strRecenica.Trim
        Dim strSlovo(Len(strRecenica)) As String

        Dim strMid As String

        For i = 2 To Len(strRecenica)
            strMid = Mid(strRecenica, i, 1)
            strSlovo(i) = strMid
            TextBox2.Text = strSlovo(i)
        Next i

        For j = 1 To Len(strRecenica)
            If strSlovo(j - 1) = " " Then
                strSlovo(j) = strSlovo(j).ToUpper
            End If
        Next j

        Dim strKrajnja As String = strRecenica.Substring(0, 1).ToUpper

        For x = 1 To Len(strRecenica)
            strKrajnja = strKrajnja & strSlovo(x)
        Next x

        TextBox2.Text = strKrajnja

    End Sub
End Class


Moze li kako jednostavnije ??
[ ventura @ 13.05.2012. 09:27 ] @
Citat:
Enver Kikic: Rijesio :D

Rjesenje
...

Moze li kako jednostavnije ??

Jbt, zaklo si vola zarad kilo mesa :)

Ako te budu plaćali po liniji napisanog koda, obogatićeš se :)

Tvoj problem rešava jedna linija koda:

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = StrConv(TextBox1.Text, VbStrConv.ProperCase)
    End Sub
[ Enver Kikic @ 13.05.2012. 17:52 ] @
haha, fino receno

Nisam uposte znao za ovo, jbg tek sam poceo, znam samo osnovno,
kolko sam svatio ovo sluzi za upravljane stringom, ali kako sad putem ovoga
prevrnut radnju,
tj. Da recenicu ispisuje velikim slovima osim pocetnog slova svake rijeci
[ ventura @ 13.05.2012. 21:26 ] @
Hoćeš sva slova stringa da budu velika?

Za to koristiš VbStrConv, pa mu onda daš tip konverzije koji želiš, npr.

Originalan string:
ovo jE neki tamo STRing koji treba prOMeniti

ProperCase (TitleCase):
Ovo Je Neki Tamo String Koji Treba Promeniti

UpperCase:
OVO JE NEKI TAMO STRING KOJI TREBA PROMENITI

LowerCase:
ovo je neki tamo string koji treba promeniti
[ Enver Kikic @ 14.05.2012. 07:03 ] @
ne, da svako pocetno slovo ispisuje malim, a ostala velikim,
da li se to moze prego strconv ??