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

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

Neue Wissensbeiträge
Server-Hardware

Lösung für Ersatz eines defekter Raid-Controllers

Anleitung von wellknown vor 4 StundenServer-Hardware1 Kommentar

Hallo, da ich nichts gefunden habe und selbst eine Lösung brauchte, hier eine kleine Anleitung für alle die vor ...

Windows 10

Kumuative Updates für .NET Framework kommen für Windows 10 V1809

Information von kgborn vor 9 StundenWindows 10

Microsoft hat das Ganze im Beitrag Announcing Cumulative Updates for .NET Framework for Windows 10 October 2018 Update vorgestellt. ...

Sicherheit
Neue IT-Administrator Ausgabe - Endpoint Security
Information von Frank vor 10 StundenSicherheit

Die Endgeräte in Unternehmen stellen das wohl größte Einfallstor für Angreifer dar. Ein geöffneter, infizierter E-Mail-Anhang oder der Besuch ...

Windows Tools

Windows 10 BitLocker Laufwerkverschlüsselung ohne TPM-Chip

Anleitung von Frank vor 10 StundenWindows Tools4 Kommentare

Diese Anleitung zeigt, wie man die Windows BitLocker Laufwerkverschlüsselung ohne TPM-Chip Schritt für Schritt aktiviert. Zwar haben viele Laptops ...

Heiß diskutierte Inhalte
Hyper-V
Windows Serer 2016 Standard virtualisieren
gelöst Frage von fritte87Hyper-V33 Kommentare

Hallo zusammen, ich muss für eine kleine Firma ein entsprechendes neues kleines Konzept bauen. Ich habe einen Server Standard ...

Windows Server
Kann DNS-Einträge nicht finden
gelöst Frage von BPeterWindows Server19 Kommentare

Hallo, wenn ich folgenden Befehl absetze, bekomme ich eine Liste zurück mit allen Einträgen der DNS-Zone. Wenn ich aber ...

Grafikkarten & Monitore
Einfachste Lösung Darstellung einer Website auf einem Monitor oder Fernseher
gelöst Frage von winIT3264Grafikkarten & Monitore12 Kommentare

Hallo zusammen, wir wollen eine einzelne Webseite dauerhaft auf einem Monitor / Fernseher darstellen. Ähnlich wie die Apotheken ihre ...

Firewall
Externer Zugriff auf Webserver
Frage von KingLouieFirewall12 Kommentare

Hallo zusammen, ich habe folgendes Problem: Ein Kollege muss gelegentlich auf einen Webserver zugreiffen, sowohl von intern als auch ...