Array teilen

Thomasb

Hi,

ich habe für die Steuerung eines externen Programm ein kleines Script geschrieben. Es ruf in dem ext. Programm einen Rechnungsdruck auf, der über eine pdf Software(BroadGun) diese in einem pdf zusammen stellt. Nun schmiert die BroadGun Software mit aller regelmäßigkeit ab. Damit bricht alles ab. Nun bleibt mit nichts anderes übrig um die Größe zu verringen die RE Nummern in ein Array einzulesen. Doch wie kann ich es nun erreichen, das nur die Hälfte der im Array befindlichen RE Nummern an das externe Programm ausgegeben werden. Auch weis ich im Vorfeld nicht wieviel RE Nummern in der txt sind.In der txt Datei stehen sie untereinander von 0001 bis 2104 (können aber auch mehr sein) Sie sollen dann so ausgegeben werden Bsp.0001..1052. Nach erfolgter pdf Erstellung soll durch eine Schleife der Rest von 1053.. ausgegeben werden.
Kann mir bitte jemand eine Hilfestellung geben?

ThomasB

**Xenobiologist**

Hi,

verstehe ich nicht. Nimm doch Ubound(...)/2

So long,

Mega

Thomasb

hi,

meinst du so
For $r = 1 to UBound($Txt1,1)/2
FileWriteLine($PROTFILE, $txt1[$r] & @CRLF)
Next

und wie kann der zweite Teil ausgegeben werden und wie bekomme ich die Ausgabe in diesem Format 0001..1052 hin. Diese benötige ich so um sie im externen Programm über Send() wieder einzugeben.

Thomas

Eddy_Erpel

Hi,
mit _FileReadToArray & _FileWriteFromArray solltes du eigentlich weiterkommen. Ansonsten poste doch einmal dein bisheriges Skript.

Gruss
eddy_erpel

**Xenobiologist**

Hi,

ja genauso.

Halt einlesen und dann

Von Zeile 1 bis Anzahlzeilen/2 -->a
von Anzahlzeilen/2+1 bis Ubound()-1 --> b

So long,

Mega

Thomasb

hi,

danke das funzt. Damit hätten wir ein Problem gelöst. Aber ich brächte aus jedem Teil den ersten und den letzen und nur durch ".." getrennt. Das wird vom externem Programm als von - bis angesehen.

Thomas

**Xenobiologist**

Hi,

da musst du doch wieder nur die Nummern der Zeilen ermitteln und dann ausgeben.

So long,

Mega

Thomasb

hi,

kannst du bitte nochmal eine kurze Hilfe geben?

Thomas

**Xenobiologist**

Hi,

ich dachte du brauchst

Array[1] .. Ubound(array)/2 -1
Ubound(array)/2 .. Ubound(array)-1

So long,

Mega

Thomasb

Hi,

habe alles in ein neues Array eingelesen und mit Arrymin und max versucht. Leider bleibt min leer max wird richtig angezeigt.

Spoiler anzeigen

[autoit]

_FileReadToArray($Txt2, $Txt4)
_ArrayDisplay( $Txt4, "_ArrayDisplay() Test" )
MsgBox(0,'Min Numeric value',_ArrayMin( $Txt4,1,1)&".." &_ArrayMax( $Txt4,1,1))

[/autoit]

MFG

Thomas

**Xenobiologist**

Hi,

brauchst du den ersten und letzten Wert aus dem Array oder den niedrigsten und höchsten Inhaltswert?

So long,

Mega

Thomasb

hi,

das ist egal ambesten ist es wenn ich den tiefsten wert und den höchsten wert habe, da die Daten schon sortiert kommen. Deshalb habe ich auch mit min und max getestet. Leider war aber bei meinn Test der min Wert leer. Ich weiß nicht warum.

thomas

**bernd670**

Hallo,

wenn esi in ein Array eingelesen wird, gehts so:

[autoit]

_FileReadToArray($szFileName, $aszReNr)
If IsArray($aszReNr) Then
$szParam1 = $aszReNr[1] & ".." & $aszReNr[Floor($aszReNr[0]/2)] ; 1. Hälfte
$szParam2 = $aszReNr[Floor($aszReNr[0]/2)+1] & ".." & $aszReNr[$aszReNr[0]] ; 2. Hälfte

MsgBox(0, "", "1. Hälfte: " & $szParam1 & @CRLF & "2. Hälfte: " & $szParam2)
EndIf

[/autoit]

Du kannst die Angaben aber auch direkt aus der Datei lesen:

[autoit]

$cLines = _FileCountLines($szFileName)
If $cLines > 0 Then
$szParam1 = FileReadLine($szFileName,1) & ".." & FileReadLine($szFileName,Floor($cLines/2))
$szParam1 = FileReadLine($szFileName,Floor($cLines/2)+1) & ".." & FileReadLine($szFileName,$cLines)

MsgBox(0, "", "1. Hälfte: " & $szParam1 & @CRLF & "2. Hälfte: " & $szParam2)
EndIf

[/autoit]

Thomasb

hi,

danke Bernd das funzt super

:keks:

mfg Thomas

**Xenobiologist**

Hi,

das hättest du doch auch hinbekommen, oder? Die Logik hatte ich doch bereits beschrieben.

Naja bernd

So long,

Mega

Thomasb

hi,

ich musste das Thema nochmal aufmachen. Das Teile durch zwei läuft ja ganz toll. Nun habe ich aber mit der Teilung durch zwanzig ein Problem. ich komme nicht recht weiter. Wie müssten die Nachfolgenden Teilsegmente aussehen. (Leider weiß ich nicht im Vorfeld wieviel Zeilen in der Datei sind.)

Spoiler anzeigen

[autoit]

$cLines = _FileCountLines($szFileName)
If $cLines > 0 Then
$szParam1 = StringLeft(FileReadLine($szFileName,1),10) & ".." & StringLeft(FileReadLine($szFileName,Floor($cLines/20)),10)
$szParam2 = StringLeft(FileReadLine($szFileName,Floor($cLines/20)+1),10) & ".." & StringLeft(FileReadLine($szFileName,
Floor($cLines/20)+1); abhier weis ich nicht weiter
),10)

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0, "", "1. Hälfte: " & $szParam1 & @CRLF & "2. Hälfte: " & $szParam2)
EndIf

[/autoit]

Kann mir jemand unter die Arme greifen?

MFG Thomas

**Xenobiologist**

Hi,

du hast ein Array mit X Elemeten und willst es jetzt wie aufteilen?

20
20
20
Rest (wenn kleiner zwanzig)

oder wie?

So long,

Mega

Thomasb

hi,

es könne bis zu 2000 Zeile in der Datei sein. Die wollte ich es wie oben schon thematisiert wurde. Es soll dann wieder so raus kommen wie oben von Bernd beschrieben.

z.B 0000123456..0000123656 usw.

Mfg Thomas

**bernd670**

Hallo,

Probier mal das (ungetestet):

[autoit]

Dim $aszParam[20]