Re: Suche Aussortier-Programm

From	"Wendelin Uez" <wuez@online.de>
Newsgroups	de.comp.software.misc
Subject	Re: Suche Aussortier-Programm
Date	2021-05-04 20:13 +0200
Organization	A noiseless patient Spider
Message-ID	<s6s2vu$p19$1@dont-email.me> (permalink)
References	<if2a31Fnh7hU1@mid.individual.net> <s6m645$a9t$1@dont-email.me> <if7oapFpaksU1@mid.individual.net> <s6pfi2$4v8$2@dont-email.me> <ifbf6kFh116U1@mid.individual.net>

Show all headers | View raw

> Genau! Aber was ist ein VB-Skript?

Ein Visual-Basic-Skript. Diese Programmiersprache ist in Windows enthalten.

Anbei ein einfaches Skript, das die genannte Aufgabe löst:

- kopiere den untenstehenden Quellcode in den Windows-Editor
- speichere ihn in einem beliebigen leeren Ordner ab unter dem Namen 
DUPLORAUS.vbs
- kopiere eine Kopie der Umwandlungsdatei als EINGABE.txt in denselben 
Ordner
- Doppelklick im Explorer auf DUPLORAUS.vbs startet das Skript
- nach dem Durchlauf kommt die Meldung "fertig" und die unterschiedlichen 
Viereblöcke stehen in der Datei ausgabe.txt im selben Ordner.

Wichtig:
- die Eingabedatei muß eine durch 4 teilbare Zahl an Zeilen enthalten, sonst 
Fehler
- also keine Leerzeile am Ende
- die Ausgabedatei AUSGABE.txt darf nicht existieren, sonst wird sie 
erweitert, nicht überschrieben

Der Code ist selbsterklärend, es werden immer vier Zeilen gelesen, 
verglichen, und falls unterschiedlich geschrieben.

good luck!
wuez



Un hier der Skript-Code:

-------------------schnipp -------------------------------------------
'*** Hinweis:
' - Eingabedatei MUSS eine durch 4 teilbare Anzahl Zeilen enthalten!!!
' - Ausgabedatei darf noch nicht existieren, sonst wird Ausgabe angehängt

'*** Deklarationen
CONST FOR_APPENDING = 8

'*** Ein- und Ausgabedateien
INPUTFILE = "eingabe.txt"
OUTPUTFILE = "ausgabe.txt"

'*** Dateien öffnen
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFileINP = objFSO.OpenTextFile (INPUTFILE)
Set objFileOUT = objFSO.OpenTextFile (OUTPUTFILE,FOR_APPENDING,True)

'*** Eingabedatei bis zum Ende lesen
WHILE NOT objFileINP.AtEndOfStream

'neuen Viererblock lesen
 N1 = obJFileINP.ReadLine
 N2 = obJFileINP.ReadLine
 N3 = obJFileINP.ReadLine
 N4 = obJFileINP.ReadLine

'vergleichen mit altem
 NEUGLEICHALT = N1=A1 AND N2=A2 AND N3=A3 AND N4=A4
 IF NOT NEUGLEICHALT THEN

  'unterschiedlichen Viererblock schreiben
   objFileOUT.WriteLine N1
   objFileOUT.WriteLine N2
   objFileOUT.WriteLine N3
   objFileOUT.WriteLine N4

   'alt = neu
    A1 = N1
    A2 = N2
    A3 = N3
    A4 = N4

    END IF
WEND

objFileINP.Close
objFileOUT.Close

MSGBOX "fertig"
-------------------schnapp -------------------------------------------

Back to de.comp.software.misc | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Suche Aussortier-Programm Reinhard Zwirner <reinhard.zwirner@t-online.de> - 2021-04-30 14:04 +0200
  Re: Suche Aussortier-Programm Helmut Waitzmann <nn.throttle@xoxy.net> - 2021-04-30 22:49 +0200
    Re: Suche Aussortier-Programm Reinhard Zwirner <reinhard.zwirner@t-online.de> - 2021-04-30 23:14 +0200
      Re: Suche Aussortier-Programm Helmut Waitzmann <nn.throttle@xoxy.net> - 2021-05-01 16:05 +0200
        Re: Suche Aussortier-Programm Reinhard Zwirner <reinhard.zwirner@t-online.de> - 2021-05-01 17:22 +0200
  Re: Suche Aussortier-Programm Enrik Berkhan <Enrik.Berkhan@inka.de> - 2021-04-30 21:30 +0000
    Re: Suche Aussortier-Programm Reinhard Zwirner <reinhard.zwirner@t-online.de> - 2021-05-01 16:49 +0200
  Re: Suche Aussortier-Programm Wolf gang P u f f e <remail@gmx.com> - 2021-05-02 14:15 +0200
    Re: Suche Aussortier-Programm Reinhard Zwirner <reinhard.zwirner@t-online.de> - 2021-05-02 14:44 +0200
  Re: Suche Aussortier-Programm "Wendelin Uez" <wuez@online.de> - 2021-05-02 14:31 +0200
    Re: Suche Aussortier-Programm Reinhard Zwirner <reinhard.zwirner@t-online.de> - 2021-05-02 15:38 +0200
      Re: Suche Aussortier-Programm "Wendelin Uez" <wuez@online.de> - 2021-05-03 20:28 +0200
        Re: Suche Aussortier-Programm Reinhard Zwirner <reinhard.zwirner@t-online.de> - 2021-05-04 01:27 +0200
          Re: Suche Aussortier-Programm Thomas Hochstein <thh@thh.name> - 2021-05-04 07:58 +0200
            Re: Suche Aussortier-Programm Reinhard Zwirner <reinhard.zwirner@t-online.de> - 2021-05-04 11:48 +0200
          Re: Suche Aussortier-Programm "Wendelin Uez" <wuez@online.de> - 2021-05-04 20:13 +0200
            Re: Suche Aussortier-Programm Reinhard Zwirner <reinhard.zwirner@t-online.de> - 2021-05-04 22:28 +0200
              Re: Suche Aussortier-Programm "Wendelin Uez" <wuez@online.de> - 2021-05-05 14:01 +0200

csiph-web