Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

[VB] Mehrere Fragen zum Thema suchen, Variabel und Ausgabe

Mitglied: copro

copro (Level 1) - Jetzt verbinden

22.02.2006, aktualisiert 23.02.2006, 4706 Aufrufe, 2 Kommentare

Hallo zusammen ich programmiere mein erstes Programm...

Nun haben sich doch einige Fragen angesammelt:

Die Erste und wichtigste Frage:

In dem Programm lade ich Dateien herunter, ob der Download erfolgreich war wird an ein Textfeld übergeben... Das ganze wird mit einem Loop wiederholt bis die List zu ende ist. in der liste wird lediglich der Name der Datei gespeichert.
Klappt soweit hervoragend. Nur ein Problem ergibt sich und zwar werden die Angaben erst am Ende des Loops an die Textbox weitergegeben, sprich sind es einige Dateien die er herunterläd sieht man garnichts bis alle unten sind und dann wird gleich der komplette Text angezeigt...

Ist das normal oder ein Programmierfehler meinerseits? Falls normal wie kann ich aus dem Loop ausbrechen um die Ausgaben wärend der Laufzeit zu machen?


Die zweite Frage:

Ich komm mit dem Suchen inerhalb einer Datei nicht klar...
Funktioniert es mit FindStr?
Ich möchte ein bestimmtes Wort in einer Datei suchen und wenn es gefunden wird die ganze Zeile in der sich das Wort befindet an eine weitere Datei übergeben...


Die dritte und blödste Frage ;) :

Kann ich die Dos-Variabeln wie %HOMEPATH% nicht nutzen? Hat bei mir auf jeden Fall so nicht geklappt...


MfG und Thx im Voraus

Copro
Mitglied: 16568
22.02.2006 um 21:53 Uhr
Okay, erst ma herzlichen Glückwunsch, daß Du es mit VB probierst ^^
Ist für Anfänger meiner Meinung nach die bessere Lösung.
(bitte keine Tomaten aus dem Pascal/Delphi-Lager )

Die erste Frage kann man nur dann beantworten, wenn man den Code zum Programm kennt.
(z.B. wenn das Prog nicht ständig zwischendrin prüft, ob die Datei down ist, wird es erst am Schluß gezeigt)



Der Ansatz zur zweiten ist schon mal gar nicht so schlecht...



Und zur Dritten: Environ$.

Hier ma was dazu:


<font class="code">

Option Explicit

Private Sub CommandButton1_Click()
Dim X As Integer
Dim Buffer As String

X = 1
Do
Buffer = Environ$(X)
If Len(Buffer) <> 0 Then
ListBox1.AddItem Buffer
X = X + 1
Else
Exit Do
End If
Loop
End Sub

</font>



Dazu eine einfache Form erstellen, darauf ma einen Command-Button und ein List-Feld.


Und wenn Du sie jetzt noch verändern willst:

<font class="code">

Option Explicit

Private Declare Function GetEnvironmentVariable Lib _
"kernel32.dll" Alias "GetEnvironmentVariableA" (ByVal _
lpName As String, ByVal lpBuffer As String, ByVal _
nSize As Long) As Long

Private Declare Function SetEnvironmentVariable Lib _
"kernel32.dll" Alias "SetEnvironmentVariableA" (ByVal _
lpName As String, ByVal lpValue As String) As Long

Private Sub Command1_Click()
Call SetEnvironmentVariable("HALLO", "Wert von Hallo")
Command2.Enabled = True
End Sub

Private Sub Command2_Click()
Dim Buffer As String
Dim l As Long

l = 256
Buffer = String$(l, Chr$(0))

l = GetEnvironmentVariable("HALLO", Buffer, l)

If l <> 0 Then
Buffer = Left(Buffer, l)
MsgBox ("Umgebungsvariable HALLO =" & Chr$(34) _
& Buffer & Chr$(34))
End If
End Sub


</font>



So, bei weiteren Fragen...



Lonesome Walker
Bitte warten ..
Mitglied: copro
23.02.2006 um 03:25 Uhr
Hi Lonesome Walker thx schon mal.
Mein 1. Problem konnte ich mit DoEvent lösen...
am 2. häng ich grat
und das Beispiel von dir zu Problem Nummero 3 werd ich mir noch ansehen =) Sieht doch komplexer aus als erwartet mehr oder weniger versteh ich aber was es abgeht ^^

Edit:

Bin nun etwas weiter gekommen...
Kannst du mir noch sagen wieso die Like funktion nicht greift?

Open "data\reffirst.dat" For Input As #FNr
'auslesen bis zum Dateiende
Do While Not EOF(FNr)
'zeilenweise auslesen und übernehmen
Line Input #FNr, qw

For I = 0 To List1.ListCount - 1
If List1.List(I) Like qw & "*" Then
MsgBox "endlich"
End If
Next I
Loop

mfg copro
Bitte warten ..
Ähnliche Inhalte
Windows Server
Anfänger Frage zum Thema Migration!
gelöst Frage von Stefan007Windows Server7 Kommentare

Hallo Leute, da das Thema sicherlich viel Raum für Meinungen zulässt, schränke ich das mal nur auf Windows Server ...

Windows Netzwerk

Allgemeine Frage zum Thema NAP unter Windows

gelöst Frage von Stefan007Windows Netzwerk5 Kommentare

Hallo, ich möchte für mich eine Frage klären und zwar: Wie viele Rechner braucht man mindestens um ein vollständiges ...

Netzwerkgrundlagen

Grundsätzliche Fragen zum Thema OpenVPN (Starter)

gelöst Frage von JohnWorksNetzwerkgrundlagen4 Kommentare

Hallo Zusammen, ich habe ein paar Fragen bzgl. OpenVPN. Wir haben aktuell eine ältere Firewall, hier sind aktuell wiedermal ...

Festplatten, SSD, Raid

Ein paar Fragen zum Thema LSI-Raid-Controller Einstellungen

gelöst Frage von zeroblue2005Festplatten, SSD, Raid7 Kommentare

Hallo Zusammen, ich brauche mal ein bisschen Nachhilfe in Sachen LSI-Raidcontroller 9260 G6 und dessen Einstellungen! Ist Zustand: 2 ...

Neue Wissensbeiträge
Windows Server
Erneutes Release von WS2019 und Win10 v1809
Tipp von IT-Pro vor 8 StundenWindows Server3 Kommentare

Hi, nachdem der Windows Server 2019 und Windows 10 in der Version 1809 aufgrund von verschwinden von Dateien nach ...

CPU, RAM, Mainboards
Spectre Update Tool für ältere PCs
Information von sabines vor 11 StundenCPU, RAM, Mainboards6 Kommentare

Mit Hilfe eines Tools wird der betreffende PC permanent von einem USB Stick gestartet, der ein passendes Microcode Update ...

Windows 10
Windows 10 Oktober 2018 Update: Es ist wieder da
Tipp von Bowsette vor 19 StundenWindows 101 Kommentar

Ein neuer Versuch von Microsoft das Windows 10 Oktober 2018 Update, auch bekannt als 1809, an den Mann zu ...

Windows Server

Windows Server 2016: Achtung - ab heute gibt es wieder Express Updates

Information von kgborn vor 1 TagWindows Server1 Kommentar

Kurze Info für Administratoren, die Windows Server 2016 per WSUS/SCCM mit Updates betanken. Ab heute gibt es für Windows ...

Heiß diskutierte Inhalte
Windows Server
Windows Server 2016 Lizenzierung - 7 Hyper V VMs
Frage von staybbWindows Server18 Kommentare

Hallo zusammen, wir haben zwei HP Server gekauft mit jeweils pro Server 2 CPUs à 10 Cores. Also insgesamt ...

Batch & Shell
Ordnernamen mit String aus Ziffern-Zahlenkombination erstellen
Frage von MmarKussBatch & Shell15 Kommentare

Hallo zusammen, ich habe ein etwas komplexeres Problem, welches ich selbst mittels einer Batch-Datei lösen will / muss, da ...

Windows Server
Lohnt sich eine Domäne für uns?
Frage von BowsetteWindows Server12 Kommentare

Hallo, ich arbeite in einem kleinen Unternehmen mit mehr als 5 und weniger als 10 Mitarbeitern, also Small Business ...

Windows Server
AD Password Reminder Mail
Frage von TeutoneWindows Server10 Kommentare

Hallo liebe Leute, ich habe vor langer Zeit einmal ein Password Reminder Mail Script erstellt, welches nun nicht mehr ...