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, 4688 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 ...

CMS

Frage zum Thema Beitragsoptionen im Joomla

gelöst Frage von gamerffCMS1 Kommentar

Hallo Forum, ich habe mir jetzt auf meinem Webspace Joomla installiert und möchte damit eine Webseite gestalten. Als Globaleeinstellung ...

Datenbanken

Frage zum Thema Datenbanken

Frage von sina123Datenbanken6 Kommentare

Hallo Zusammen Muss zu einem Fragebogen ein paar Antworten finden, bei folgenden Fragen weiss ich nicht genau was antworten: ...

Batch & Shell

Variabel Weiterleitung zu Variabel CMD

gelöst Frage von Lasky94Batch & Shell4 Kommentare

Sehr geehrte Administratoren Ich bin an einen Projekt dran, welcher ich wegen einen Fehler nicht weiterkomme. Ich mache gerade ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 13 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 16 StundenAdministrator.de Feedback10 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 1 TagGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Netzwerk
Backup über WAN
Frage von petereWindows Netzwerk11 Kommentare

Hallo, ich muss aus einem entfernten WAN (synchrone 1Gbit) Daten sichern. Dabei handelt es sich sowohl um wenige große ...