Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: suchen, finden, dahinterschreiben
Autor: Wasserwerk
Datum: 05.12.06 14:33
Hallo, vielen Dank für Eure Hilfe. Aber ich läuft nicht ganz. Ich habe hier noch mal die beiden Dateien reinkopiert, (Die wurden etwas geändert). Vielleicht ist es ja ganz einfach. Danke Uwe '########hier Datei 1 mit den Aufträgen ######################### +-----------------------------------------------------------------------------------------------------------------------------------------------------------------+-------------------------------------------------------------------------------------------- 140000000000; 7 1400 P7 ;1400;605020; 7;Artikel1 140000000001; 9 1400 P9 ;1400;613420; 9;Artikel2 140000000002; 9 1400 P9 ;1400;613320; 9;Artikel3 140000000003;99 1400 P9 ;1400;618920;99;Artikel4 '######hier Datei 2 mit den Rezepturnummern ########################### Werk Material Rezeptur An Materialkurztext St 14000000000;1100065 14000000002;1100075 14000000665;1100480 14000000001;1100375 14000000003;1100516 14006201104;1100499 13006194104;1100511 13006195104;1100512 13006196104;1100510 13006197104;1100501 13006193104;1100515 '########so soll die neue Datei aussehen ######################### 140000000000; 7 1400 P7 ;1400;605020; 7;Artikel1;1100065 140000000001; 9 1400 P9 ;1400;613420; 9;Artikel2;1100375 140000000002; 9 1400 P9 ;1400;613320; 9;Artikel3;1100075 140000000003;99 1400 P9 ;1400;618920;99;Artikel4;1100516 '#### Programm erstellen############################### Option Explicit dim File1, File2, File3, FS, TextDatei1, TextDatei2, TextDatei3, strLine1, Exclusion, EArray, Hits, FValue, strLine2, TextArray '#### File1 = "W:\Produktion\pp_1700.txt" File2 = "W:\Produktion\pp_rezept1.txt" File3 = "W:\Produktion\pp_Tetra.txt" Set FS = CreateObject("Scripting.FileSystemObject") Set TextDatei1 = FS.OpenTextFile(File1) Set TextDatei2 = FS.OpenTextFile(File2) Set TextDatei3 = FS.OpenTextFile(File3, 2, true) Do Until TextDatei1.AtEndOfStream Do Until TextDatei2.AtEndOfStream strLine1 = Trim(TextDatei1.ReadLine) If SkipRow(strLine1) = False Then strLine2 = TextDatei2.ReadLine TextArray = Split(strLine2, ";") RNummer = TextArray(1) Textdatei3.WriteLine strLine1 & ";" & RNummer End If Loop Loop TextDatei1.Close TextDatei2.Close TextDatei3.Close Function SkipRow(strLine) Exclusion = "+" EArray = Array(Exclusion) Hits = False For FValue = LBound(EArray) to UBound(EArray) If Left(strLine, 1) = EArray(FValue) Then Hits = True End If If Hits = True Then SkipRow = True End If Next End Function

suchen, finden, dahinterschreiben	1.296	Wasserwerk	29.11.06 09:35
Re: suchen, finden, dahinterschreiben	893	~~~dexter~~~	29.11.06 14:33
Re: suchen, finden, dahinterschreiben	636	Killing_Ground	30.11.06 12:58
Re: suchen, finden, dahinterschreiben	658	Wasserwerk	05.12.06 14:33
Re: suchen, finden, dahinterschreiben	750	Killing_Ground	05.12.06 15:22
Re: suchen, finden, dahinterschreiben	771	Wasserwerk	05.12.06 16:58
Re: suchen, finden, dahinterschreiben	782	Killing_Ground	06.12.06 14:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen