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

Frage Entwicklung VB for Applications

GELÖST

Markieren und Kopieren von WORDA bis WORDB

Mitglied: unimx101

unimx101 (Level 1) - Jetzt verbinden

23.07.2007, aktualisiert 24.07.2007, 2435 Aufrufe, 2 Kommentare

Hi,
Mein Problem erscheint mir simpel, nur ich finde einfach nicht raus, wie ich das machen soll

Ich will folgendes markieren:
Alles ab dem Anfang von WORDA bis zum Anfang von WORDB
WORDA und WORDB sind immer eindeutig.

so sieht zb, die Datei aus mit noch mehr Inhalt:
lalalaallaa
lalalala

WORDB est est est est (
fülltextfülltextfülltextfülltextfülltext
fülltextfülltextfülltext()
fülltextfülltextfülltext;
) WORDA

lalalala
llaallaa
lalalalal
rauskommen, soll das hier:

WORDB est est est est (
fülltextfülltextfülltextfülltextfülltext
fülltextfülltextfülltext()
fülltextfülltextfülltext;
)

das soll dann wiederum in eine Datei geschrieben werden, aber das soll mal nicht das Problem sein

Das ganze sollte mit VB6.0 funktionieren. Sollte halt als Markro o.Ä. aufgerufen werden können.

es wäre vielleicht schon sehr hilfreich, wenn mir jemand sagen kann wie ich folgendes mache:
Ich suche nach WORDA und nun will ich wissen in welcher Zeile es sich befindet, wie kann ich das auslesen ?

Ich hoffe doch mal, irgendwer weis eine Lösung.


Gruß
Flo
Mitglied: bastla
23.07.2007 um 16:09 Uhr
Hallo unimx101!

Du kannst Dich der gleichen Syntax wie in VBS bedienen:
01.
strInFile = "D:\Infile.txt" 
02.
strOutFile = "D:\Outfile.txt" 
03.
Set fso = CreateObject("Scripting.FileSystemObject") 
04.
If fso.FileExists(strInFile) Then 
05.
	strInput = fso.OpenTextFile(strInFile, 1).ReadAll 
06.
	intStart = Instr(strInput, "WORDB") 
07.
	intEnd = Instr(strInput, "WORDA") 
08.
	strOutput = Mid(strInput, intStart, intEnd-IntStart) 
09.
	fso.OpenTextfile(strOutFile, 2, True).Write strOutput 
10.
End If
Zusätzliche Fehlerprüfungen (falls zB WORDB oder WORDA nicht gefunden werden, ist intStart bzw intEnde 0) kannst Du sicher selbst ergänzen.

Grüße
bastla
Bitte warten ..
Mitglied: unimx101
24.07.2007 um 08:52 Uhr
Hallo unimx101!

Du kannst Dich der gleichen Syntax wie in
VBS bedienen:
01.
strInFile = 
02.
> "D:\Infile.txt" 
03.
> strOutFile = "D:\Outfile.txt" 
04.
> Set fso = 
05.
> CreateObject("Scripting.FileSystemObject") 
06.
> If fso.FileExists(strInFile) Then 
07.
> 	strInput = fso.OpenTextFile(strInFile, 
08.
> 1).ReadAll 
09.
> 	intStart = Instr(strInput, 
10.
> "WORDB") 
11.
> 	intEnd = Instr(strInput, 
12.
> "WORDA") 
13.
> 	strOutput = Mid(strInput, intStart, 
14.
> intEnd-IntStart) 
15.
> 	fso.OpenTextfile(strOutFile, 2, True).Write 
16.
> strOutput 
17.
> End If 
18.
> 
Zusätzliche
Fehlerprüfungen (falls zB WORDB oder
WORDA nicht gefunden werden, ist intStart bzw
intEnde 0) kannst Du sicher selbst
ergänzen.

Grüße
bastla

Danke, genau das wollte ich
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Bereich Markieren und Kopieren (Verständnis)
gelöst Frage von Gimli3311VB for Applications4 Kommentare

Guten Tag Zusammen, ich hab ein Verständnisproblem was das Thema angeht einen Bereich zu markieren und dann zu kopieren. ...

Windows 7
Automatischens Markieren von Textfeldern Windows 7
Frage von MantigulWindows 72 Kommentare

Hallo zusammen. seitdem wir bei uns ein neues aktuelles Image für die Windows Installation erstellt haben funktioniert bei einem ...

Windows 10
Mehrere pdf-Dateien markieren auf einmal ausdrucken
Frage von derSESOWindows 104 Kommentare

Hallo! Unter Win7 kann ich mehrere PDF-Dateien markieren und sie alle mit einem mal ausdrucken. Unter Win10 funktioniert dies ...

Microsoft Office
Excel - Aktuellen Monat Markieren
gelöst Frage von Questionmark93Microsoft Office9 Kommentare

Hallo Leute, Ich habe da mal eine Frage: Und zwar wie kann ich den aktuellen Monat automatisch farbig markieren? ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 2 TagenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 3 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 3 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 3 TagenSicherheit12 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Firewall
Penetrationstester-Labor - Firewalls
Frage von Oli-nuxFirewall10 Kommentare

Mich würde interessieren warum man beim Einrichten eines Penetrationstester-Labor (VMs) die Firewall der Systeme deaktivieren soll? Hat das nur ...

SAN, NAS, DAS
Wer kennt sich mit QNAP und CISCO aus ?
gelöst Frage von MachelloSAN, NAS, DAS9 Kommentare

Hallo Zusammen hier im Forum, Ich habe ein QNas 451+ und dieses NAS hat zwei GBit Lan Adapter die ...

Netzwerkgrundlagen
IPv6 Inter-VLAN Routing
gelöst Frage von clSchakNetzwerkgrundlagen9 Kommentare

Hi ich befasse mich gerade mit der Implementierung von IPv6 was bisher (in einem VLAN) korrekt funktioniert inkl. DNS ...

Windows Netzwerk
Zugriff auf den Desktop Ordner eines anderen Rechners in der gleichen Domäne
gelöst Frage von JensNomaWindows Netzwerk6 Kommentare

Guten Abend, ich war neulich mit unserem Admin am Tisch gesessen. Er an seinem Notebook angemeldet mit dem Domänen-Admin, ...