Anonymní profil Marek Sz – Programujte.com

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)

#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 

#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

#4 Marek Sz

#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

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

#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

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

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

#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

#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

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

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/