Anonymní profil Marek Sz – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Marek Sz – Programujte.comAnonymní profil Marek Sz – Programujte.com

 

Příspěvky odeslané z IP adresy 213.29.16.–

Marek Sz
Visual Basic › načtení do listbox
5. 9. 2015   #204770

zde je částečná odpověď přišel jsem na tuto variantu náhodou musí se to udělat přes textbox

TextBox1.Text = "" 'vyčištění textbox

 Selection.Copy
    
    
    TextBox1.Paste
ListBox1.AddItem (TextBox1.Text)

Marek Sz
Visual Basic › Automatické otevření wordu a…
25. 8. 2015   #204528

#3 Marek Sz
už jsem na to přišel souborů musí být cca min 10 když jsou dva tak to zlobí a nezastaví se to 

Marek Sz
Visual Basic › Automatické otevření wordu a…
26. 3. 2015   #200732

#1 Marek Sz
už jsem na to přišel možná to někomu pomůže :)

Private Sub CommandButton21_Click()
Dim SouboryKtere As String

ChDrive "E"
adresar = "E:\Marek aktualizace"
ChDir adresar
SouboryKtere = Dir("*.doc")
ListBox21.Clear
Do While SouboryKtere <> ""
'otevře soubor

Documents.Open FileName:=adresar & "\" & SouboryKtere 'kontrola spuštění wordu

'zpracuje macro

'zde vložit macro jaké chcete provést v souborech

'provedeno macro

   ActiveDocument.Save    'uloží doubor
   ActiveDocument.Close 'zavře soubor

  
    ListBox21.AddItem SouboryKtere
    SouboryKtere = Dir

Loop
End Sub

Marek Sz
Visual Basic › Nalezení slova v závorkách
26. 3. 2015   #200731

#4 Marek Sz

Marek Sz
Visual Basic › Nalezení slova v závorkách
26. 3. 2015   #200730

#3 pee-jay_cz
děkuji za odpověď ale asi jsem to nepochopil jak to mám doplnit když chci v  závorkách třeba najít [ Pavle je borec.] chci najít jen borec.

FOR i = 1 to PocetZavorek

    IF ZacatekSlova > Index(i, 1) AND KonecSlova < Index(i, 2) THEN

        ZAVORKY = TRUE

        EXIT FOR

NEXT i

Machy
Delphi › Testy pomoci radiogroup1
29. 4. 2012   #157162

#12 Jimi
Super,už to frčí :-D dekuji moc,ja to delal 1 celej den:-)

Machy
Delphi › Testy pomoci radiogroup1
29. 4. 2012   #157157


#7 Jimi

Tak se omlouvám,jsem uplný trotl na toto,ale když se snazim pridat otazku píše mne toto:

[Error] Unit1.pas(106): Statement expected but 'PROCEDURE' found

Nevim kde je chyba,,zkopiroval jsem promnenil promenny,,,a stejne tento error

Machy
Delphi › Testy pomoci radiogroup1
28. 4. 2012   #157152

#9 Machy
Mohu se zeptat jak dlouho Vám to trvalo? dekuji

Machy
Delphi › Testy pomoci radiogroup1
28. 4. 2012   #157151

#8 Jimi
Opravdu dekuji moc:-)...moc si važím pomoci :-) super...

Machy
Delphi › Testy pomoci radiogroup1
28. 4. 2012   #157129

#5 Jimi
Dobrý den,tak jsem to zkousel udelat tak jste popisoval,ale hází mne to opet nejakou chybu  :-(

http://www.uloz.to/…straalka-rar  když tak tady celý soubor,protože ja už nevim vcem je chyba? téměr zoufalý jsem z toho ....kdyby jste byl tak ochotný kouknul na to,napsal mne vcem je chyba,opravdu bych byl vdečný

A ano pochopil jste to dobre,a pak tam jeste musim zakombinovat nejakou promnenou na vyhodnoceni testu.

Dekuji

Machy
Delphi › Testy pomoci radiogroup1
27. 4. 2012   #157109

#2 Jimi

Doufám že to je tedka citelne po pripade pak jsem jestli bude nutno hodim zazipovaný cely projekt,ptz to opravdu nutne musim nejak dat dokupy. Děkuji za ochotu

Machy
Delphi › Testy pomoci radiogroup1
26. 4. 2012   #157077

Dobrý den, máme na základy programování v Delphi a mam semestrální praci na Klasický test, na 10 otazek.

Mám podminky na vyhodnocení otázky typu :

if otz=0 then if radiogroup1.itemindex=3 then ShowMessage('Správně') else ShowMessage('Špatně');
if otz=1 then if radiogroup1.itemindex=2 then ShowMessage('Správně') else ShowMessage('Špatně');

a prikaz : 

begin
    otz:=1+ otz;
    radiogroup1.ItemIndex:=-1;
    if otz=1
    then begin
    label2.Caption:='2:';
    radiogroup1.Items[0]:='kompresor';
    radiogroup1.Items[1]:='profesor';
    radiogroup1.Items[2]:='procesor';
    radiogroup1.Items[3]:='motor';
end;

Mám to nekolikrát zkopírované ale když spustim tak mne to vynechá otázky a hodi mne to naposledni,a nevim kde je chyba,Děkuji za pomoc

Pavel
Hardware › Monitory- dotazník
27. 3. 2009   #97991

Prosím ty, kteří si za poslední půl rok koupili nový LCD monitor, nebo si planují jej koupit, jestli by mi nevyplnili dotazník:

http://www.vyplnto.cz/databaze-dotazniku/lcd-monitory/

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032021 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý