Problem mit _stringbetween

hexpirator

Hallo Leute.

Folgendes Problem:

Ich habe eine .PCB-Datei, die wie folgt aufgebaut ist:

Spoiler anzeigen

S!LINE!257!1740 14 0!683.8!1684.3!565.7!1566.2!0.0!!!!!PLACE_BOUND_TOP!PRNC2975!C700!
S!TEXT!260!1744 1!746.8!1656.8!270.000!NO!LEFT!20 0 50.0 38.2 0.000 13.0 63.0 0.0!+!!!ASSEMBLY_TOP!PRNC2975!C700!
S!TEXT!260!1745 1!794.0!1733.5!270.000!NO!LEFT!20 0 50.0 38.2 0.000 13.0 63.0 0.0!+!!!SILKSCREEN_TOP!PRNC2975!C700!
S!TEXT!260!1746 1!-32.8!2879.7!270.000!NO!LEFT!20 0 50.0 38.2 0.000 13.0 63.0 0.0!"This keep out area is possible!!!ASSEMBLY_TOP!PRNC2975!C700!
S!TEXT!260!1747 1!-95.7!2879.7!270.000!NO!LEFT!20 0 50.0 38.2 0.000 13.0 63.0 0.0!to remove, when the elco is not!!!ASSEMBLY_TOP!PRNC2975!C700!
S!TEXT!260!1748 1!-158.7!2879.7!270.000!NO!LEFT!20 0 50.0 38.2 0.000 13.0 63.0 0.0!sealed between component and!!!ASSEMBLY_TOP!PRNC2975!C700!
S!TEXT!260!1749 1!-221.7!2879.7!270.000!NO!LEFT!20 0 50.0 38.2 0.000 13.0 63.0 0.0!PCB by gluing, coating, agglutination!!!ASSEMBLY_TOP!PRNC2975!C700!
S!TEXT!260!1750 1!-284.7!2879.7!270.000!NO!LEFT!20 0 50.0 38.2 0.000 13.0 63.0 0.0!or an other sealing method.!!!ASSEMBLY_TOP!PRNC2975!C700!

Das Problem ist nun, wenn ich diese Datei mittels meinem Script einlese, dann werden einige Strings einfach verschluckt. Ich habe schon die Vermutung, dass es am ' " '-Zeichen liegt. Kann das sein, dass _stringbetween damit Probleme hat?

die Datei habe ich angehägt.

Hier ist mein Script, das Probleme macht. Danke schonmal im Voraus für eure Tipps.

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <Array.au3>
#Include <File.au3>
Global $Path
Dim $aDest
Dim $aDatei
_Laden()

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

Func _Laden()
$Path = FileOpenDialog("Bitte PCB-Datei wählen.", @DesktopDir & "\", "PCB-File (*.pcb)", 1 + 4 )
If @error = 1 Then MsgBox(0,"","Keine Datei ausgewählt.")
If @error = 2 Then MsgBox(0,"","Falscher Dateifilter")
_FileReadToArray($Path,$aDatei)

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

For $i =1 To $aDatei[0]

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

Local $aArray1 = _StringBetween($aDatei[$i], '!', '!')

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

_ArrayDisplay($aArray1, 'Default Search')
Next

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

EndFunc ;==>_Laden

[/autoit]

Ach ja, die TXT muss in PCB umbenannt werden.

Gruß.

**chip**

Also bei der Datei im Anhang funktioniert dein Script problemlos. Alle Zeilen werden richtig ausgegeben.

**autoBert**

chip: ich muss dir leider wiedersprechen: ich habe mit folgendem Skript:

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <Array.au3>
#include <File.au3>
Global $Path
$aDatei = _Laden()
_ArrayDisplay($aDatei)

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

Func _Laden()
Local $aTmp, $aSource, $aResult
$Path = FileOpenDialog("Bitte PCB-Datei wählen.", @DesktopDir & "\", "PCB-File (*.pcb)", 1 + 4)
If @error = 1 Then MsgBox(0, "", "Keine Datei ausgewählt.")
If @error = 2 Then MsgBox(0, "", "Falscher Dateifilter")
_FileReadToArray($Path, $aSource)
Dim $aResult[$aSource[0]][9]
For $i = 1 To $aSource[0]
$aTmp = _StringBetween($aSource[$i], '!', '!')
For $j = 0 To UBound($aTmp) - 1
$aResult[$i][$j] = $aTmp[$j]
Next
Next
$aResult[0][0] = $aSource[0]
Return $aResult
EndFunc ;==>_Laden

[/autoit]

ein 2D-Array erstellt:

Code

[0]|46||||||||
[1]|LINE|1740 14 0|1684.3|1566.2|||PLACE_BOUND_TOP|C700|
[2]|TEXT|1744 1|1656.8|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[3]|TEXT|1745 1|1733.5|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||SILKSCREEN_TOP|C700|
[4]|TEXT|1746 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[5]|TEXT|1747 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[6]|TEXT|1748 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[7]|TEXT|1749 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[8]|TEXT|1750 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[9]|TEXT|1751 1|2879.7|NO|20 0 50.0 38.2 0.000 13.0 63.0 0.0||ASSEMBLY_TOP|C700|
[10]|LINE|1752 1|1015.5|1015.5|||ASSEMBLY_BOTTOM|IC800|
[11]|LINE|1803 14 0|885.0|860.0|||PLACE_BOUND_TOP|C604|
[12]|TEXT|1805 1|916.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[13]|TEXT|1807 1|975.8|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||SILKSCREEN_TOP|C604|
[14]|TEXT|1809 1|750.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||BODY_CENTER|C604|
[15]|TEXT|1810 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[16]|TEXT|1811 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[17]|TEXT|1812 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[18]|TEXT|1813 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[19]|TEXT|1814 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[20]|TEXT|1815 1|2308.9|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C604|
[21]|TEXT|4633 1|552.4|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[22]|TEXT|4635 1|422.4|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||SILKSCREEN_TOP|C600|
[23]|TEXT|4637 1|720.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||BODY_CENTER|C600|
[24]|TEXT|4638 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[25]|TEXT|4639 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[26]|TEXT|4640 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[27]|TEXT|4641 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[28]|TEXT|4642 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[29]|TEXT|4643 1|365.0|NO|1 0 25.0 16.0 0.000 6.0 31.0 0.0||ASSEMBLY_TOP|C600|
[30]|LINE|4644 1|2501.3|2501.3|||ASSEMBLY_BOTTOM|R543|
[31]|LINE|4644 2|2501.3|2538.7|||ASSEMBLY_BOTTOM|R543|
[32]|LINE|4644 3|2538.7|2538.7|||ASSEMBLY_BOTTOM|R543|
[33]|Y:/projects/ee87/DC_ESM_4x50F_BuckBoost_LIN3402B/cae/schematic/physical/2011_12_01_A.brd|-850.0|21150.0|0.1|SCHEMATIC|4|||
[34]|2068.3|VIA05_STANDARD|||||||
[35]|1050.0|VIA05_STANDARD|||||||
[36]|1974.7|VIA05_STANDARD|||||||
[37]|2045.0|VIA05_STANDARD|||||||
[38]|1654.0|VIA05_NEW|||||||
[39]|1724.8|VIA05_NEW|||||||
[40]|1654.0|VIA05_NEW|||||||
[41]|1724.8|VIA05_NEW|||||||
[42]|1654.0|VIA05_NEW|||||||
[43]|FILMMASKBOTTOM|ARC|1639 1 0|703.4|694.5|694.5|0.0|B02640189NEU|2
[44]|FILMMASKBOTTOM|LINE|1639 2 0|694.5|685.5|||B02640189NEU|2
[45]|FILMMASKBOTTOM|ARC|1639 3 0|685.5|676.6|685.5|0.0|B02640189NEU|2

Alles anzeigen

das Ergebnis ist defintiv nicht korrekt

hexpirator: Mit StringSplit anstelle von _StringBetween:

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <Array.au3>
#include <File.au3>
Global $Path
$aDatei = _Laden()
_ArrayDisplay($aDatei)

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

Func _Laden()
Local $aTmp, $aSource, $aResult
$Path = FileOpenDialog("Bitte PCB-Datei wählen.", @DesktopDir & "\", "PCB-File (*.pcb)", 1 + 4)
If @error = 1 Then MsgBox(0, "", "Keine Datei ausgewählt.")
If @error = 2 Then MsgBox(0, "", "Falscher Dateifilter")
_FileReadToArray($Path, $aSource)
Dim $aResult[$aSource[0]+1][19]
For $i = 1 To $aSource[0]
$aTmp = StringSplit($aSource[$i], '!',2)
For $j = 0 To UBound($aTmp) - 1
$aResult[$i][$j] = $aTmp[$j]
Next
Next
$aResult[0][0] = $aSource[0]
Return $aResult
EndFunc ;==>_Laden

[/autoit]

kommt das korrekte Ergebnis heraus (evtl. muss das eintragen der 1. Spalte und der letzten Zeile noch verhindert werden):

Code

[0]|46||||||||||||||||||
[1]|S|LINE|257|1740 14 0|683.8|1684.3|565.7|1566.2|0.0|||||PLACE_BOUND_TOP|PRNC2975|C700|||
[2]|S|TEXT|260|1744 1|746.8|1656.8|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|+|||ASSEMBLY_TOP|PRNC2975|C700|||
[3]|S|TEXT|260|1745 1|794.0|1733.5|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|+|||SILKSCREEN_TOP|PRNC2975|C700|||
[4]|S|TEXT|260|1746 1|-32.8|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|"This keep out area is possible|||ASSEMBLY_TOP|PRNC2975|C700|||
[5]|S|TEXT|260|1747 1|-95.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|to remove, when the elco is not|||ASSEMBLY_TOP|PRNC2975|C700|||
[6]|S|TEXT|260|1748 1|-158.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|sealed between component and|||ASSEMBLY_TOP|PRNC2975|C700|||
[7]|S|TEXT|260|1749 1|-221.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|PCB by gluing, coating, agglutination|||ASSEMBLY_TOP|PRNC2975|C700|||
[8]|S|TEXT|260|1750 1|-284.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|or an other sealing method.|||ASSEMBLY_TOP|PRNC2975|C700|||
[9]|S|TEXT|260|1751 1|-347.7|2879.7|270.000|NO|LEFT|20 0 50.0 38.2 0.000 13.0 63.0 0.0|Or take care to the component data sheet."|||ASSEMBLY_TOP|PRNC2975|C700|||
[10]|S|LINE|257|1752 1|631.0|1015.5|509.0|1015.5|0.0|||||ASSEMBLY_BOTTOM|PRNC2076|IC800|||
[11]|S|LINE|257|1803 14 0|1420.0|885.0|1445.0|860.0|0.0|||||PLACE_BOUND_TOP|PRNC2911|C604|||
[12]|S|TEXT|260|1805 1|1309.8|916.9|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|+|||ASSEMBLY_TOP|PRNC2911|C604|||
[13]|S|TEXT|260|1807 1|1309.8|975.8|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|+|||SILKSCREEN_TOP|PRNC2911|C604|||
[14]|S|TEXT|260|1809 1|1310.0|750.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|c|||BODY_CENTER|PRNC2911|C604|||
[15]|S|TEXT|260|1810 1|-546.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|"This keep out area is possible|||ASSEMBLY_TOP|PRNC2911|C604|||
[16]|S|TEXT|260|1811 1|-515.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|to remove, when the elco is not|||ASSEMBLY_TOP|PRNC2911|C604|||
[17]|S|TEXT|260|1812 1|-484.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|sealed between component and|||ASSEMBLY_TOP|PRNC2911|C604|||
[18]|S|TEXT|260|1813 1|-453.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|PCB by gluing, coating, agglutination|||ASSEMBLY_TOP|PRNC2911|C604|||
[19]|S|TEXT|260|1814 1|-422.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|or an other sealing method.|||ASSEMBLY_TOP|PRNC2911|C604|||
[20]|S|TEXT|260|1815 1|-391.8|2308.9|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|Or take care to the component data sheet."|||ASSEMBLY_TOP|PRNC2911|C604|||
[21]|S|TEXT|260|4633 1|674.6|552.4|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|+|||ASSEMBLY_TOP|PRNC1454|C600|||
[22]|S|TEXT|260|4635 1|619.4|422.4|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|+|||SILKSCREEN_TOP|PRNC1454|C600|||
[23]|S|TEXT|260|4637 1|620.0|720.0|90.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|c|||BODY_CENTER|PRNC1454|C600|||
[24]|S|TEXT|260|4638 1|-165.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|"This keep out area is possible|||ASSEMBLY_TOP|PRNC1454|C600|||
[25]|S|TEXT|260|4639 1|-196.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|to remove, when the elco is not|||ASSEMBLY_TOP|PRNC1454|C600|||
[26]|S|TEXT|260|4640 1|-227.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|sealed between component and|||ASSEMBLY_TOP|PRNC1454|C600|||
[27]|S|TEXT|260|4641 1|-258.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|PCB by gluing, coating, agglutination|||ASSEMBLY_TOP|PRNC1454|C600|||
[28]|S|TEXT|260|4642 1|-289.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|or an other sealing method.|||ASSEMBLY_TOP|PRNC1454|C600|||
[29]|S|TEXT|260|4643 1|-320.0|365.0|270.000|NO|CENTER|1 0 25.0 16.0 0.000 6.0 31.0 0.0|Or take care to the component data sheet."|||ASSEMBLY_TOP|PRNC1454|C600|||
[30]|S|LINE|257|4644 1|199.4|2501.3|130.6|2501.3|0.0|||||ASSEMBLY_BOTTOM|PRNC2157|R543|||
[31]|S|LINE|257|4644 2|130.6|2501.3|130.6|2538.7|0.0|||||ASSEMBLY_BOTTOM|PRNC2157|R543|||
[32]|S|LINE|257|4644 3|130.6|2538.7|199.4|2538.7|0.0|||||ASSEMBLY_BOTTOM|PRNC2157|R543|||
[33]|J|Y:/projects/ee87/DC_ESM_4x50F_BuckBoost_LIN3402B/cae/schematic/physical/2011_12_01_A.brd|Thu Dec 01 09:55:15 2011|-850.0|-1000.0|21150.0|16000.0|0.1|mils|SCHEMATIC|59.000000 mil|4|OUT OF DATE||||||
[34]|S|2068.3|646.7|VIA05_STANDARD|MAIN_CONTROL||||||||||||||
[35]|S|1050.0|1318.0|VIA05_STANDARD|MAIN_CONTROL||||||||||||||
[36]|S|1974.7|510.7|VIA05_STANDARD|UNNAMED_1_PFETDI_I694_G||||||||||||||
[37]|S|2045.0|765.0|VIA05_STANDARD|UNNAMED_1_PFETDI_I694_G||||||||||||||
[38]|S|1654.0|879.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[39]|S|1724.8|940.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[40]|S|1654.0|940.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[41]|S|1724.8|879.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[42]|S|1654.0|818.5|VIA05_NEW|UNNAMED_1_ELKO_I547_A||||||||||||||
[43]|S|FILMMASKBOTTOM|FIG_SHAPE B02640189_FO|ARC|256|1639 1 0|1949.1|703.4|1940.3|694.5|1949.2|694.5|8.9|0.0|COUNTERCLOCKWISE|B02640189NEU|R105|2|
[44]|S|FILMMASKBOTTOM|FIG_SHAPE B02640189_FO|LINE|257|1639 2 0|1940.3|694.5|1940.3|685.5|0.0|||||B02640189NEU|R105|2|
[45]|S|FILMMASKBOTTOM|FIG_SHAPE B02640189_FO|ARC|256|1639 3 0|1940.3|685.5|1949.1|676.6|1949.2|685.5|8.9|0.0|COUNTERCLOCKWISE|B02640189NEU|R105|2|
[46]|||||||||||||||||||

Alles anzeigen

frohes neues Jahr

autoBert

hexpirator

Hallo Auto Bert.

Vielen Dank für die Antwort. Das funktioniert ja schon mal super. Allerdings ist das Originalfile über 40000 Zeilen lang. Da kommt das Script nicht klar.

Was ich nun machen müsste ist, die Spalte, wo ' "This keep out area is possible' vorkommt ab einer Zeichenlänge von sagen wir mal 15 Zeichen zu löschen.
Im Grunde genommen geht es mir nur um diese Spalte.
Der Hintergrund ist, dass wenn in dieser Spalte zu viele Zeichen sind, dann stürzt mein Programm zur Darstellung der Positionen ab.

Hast du oder sonst jeman da vielleicht eine Idee?

Schönen Gruß und frohes neues Jahr.

**chip**

autoBert doch ist vollkommen richtig, was _StringBetween ausgibt.

Da _StringBetween den String Stück für Stück zerlegt.

Beispiel :

Startstring: S!1654.0!879.5!VIA05_NEW!UNNAMED_1_ELKO_I547_A!!
erster suche ergibt 1654.0
Reststring: 879.5!VIA05_NEW!UNNAMED_1_ELKO_I547_A!!
zweite suche ergibt: VIA05_NEW
Reststring: UNNAMED_1_ELKO_I547_A!!
dritte sucher Ergibt:

Hier noch Scriptvorschlag von mir zum kürzen. Getestet mit einer pcb mit 50k Zeilen:

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <Array.au3>
#include <File.au3>
Global $Path

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

_Laden()

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

Func _Laden()
Local $aTmp, $aSource, $aResult
$Path = FileOpenDialog("Bitte PCB-Datei wählen.", @DesktopDir & "\", "PCB-File (*.pcb)", 1 + 4)
If @error = 1 Then MsgBox(0, "", "Keine Datei ausgewählt.")
If @error = 2 Then MsgBox(0, "", "Falscher Dateifilter")
_FileReadToArray($Path, $aSource)
Dim $aResult[$aSource[0] + 1][19]

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

$file = FileOpen($Path, 2)
For $i = 1 To $aSource[0]
ToolTip($i)
$aTmp = StringSplit($aSource[$i], '!', 2)
If UBound($aTmp) > 10 Then
$zeichen = StringLen($aTmp[10])
If $zeichen > 15 Then
$aTmp[10] = StringTrimRight($aTmp[10], $zeichen - 15)
EndIf
EndIf
$final = _ArrayToString($aTmp, "!")
FileWriteLine($file, $final)
Next
FileClose($file)
EndFunc ;==>_Laden

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

Oder alternative den Wert ganz löschen:

Spoiler anzeigen

[autoit]

#include <String.au3>
#include <Array.au3>
#include <File.au3>
Global $Path

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

_Laden()

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

Func _Laden()
Local $aTmp, $aSource, $aResult
$Path = FileOpenDialog("Bitte PCB-Datei wählen.", @DesktopDir & "\", "PCB-File (*.pcb)", 1 + 4)
If @error = 1 Then MsgBox(0, "", "Keine Datei ausgewählt.")
If @error = 2 Then MsgBox(0, "", "Falscher Dateifilter")
_FileReadToArray($Path, $aSource)
Dim $aResult[$aSource[0] + 1][19]

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

$file = FileOpen($Path, 2)
For $i = 1 To $aSource[0]
ToolTip($i)
$aTmp = StringSplit($aSource[$i], '!', 2)
If UBound($aTmp) > 10 Then
$zeichen = StringLen($aTmp[10])
If $zeichen > 15 Then
$aTmp[10] = ""
EndIf
EndIf
$final = _ArrayToString($aTmp, "!")
FileWriteLine($file, $final)
Next
FileClose($file)
EndFunc ;==>_Laden

[/autoit]

hexpirator

Cool Danke.

Es funktioniert wunderbar.

Vielen vielen Dank nochmal an euch beide!

**autoBert**

Zitat von chip

autoBert doch ist vollkommen richtig, was _StringBetween ausgibt.

Da _StringBetween den String Stück für Stück zerlegt.

Beispiel :

Startstring: S!1654.0!879.5!VIA05_NEW!UNNAMED_1_ELKO_I547_A!!
erster suche ergibt 1654.0
Reststring: 879.5!VIA05_NEW!UNNAMED_1_ELKO_I547_A!!
zweite suche ergibt: VIA05_NEW
Reststring: UNNAMED_1_ELKO_I547_A!!
dritte sucher Ergibt:

schön zurecht gereimt, aber der 1. Reststring müsste korrekt gleich !879.5!VIA05_NEW!UNNAMED_1_ELKO_I547_A!! sein da ja nur um den String der dazwischen liegt (und alles davor gekürzt werde sollte. Imho ist dies ein echter Bug ist der nur auftritt wenn Start- und Stopstring identisch sind. Da ich in einem solche Fall aber eh StringSplit benutze kann ich damit leben,

frohes neues Jahr autoBert

**chip**

Tja da muss ich dich leider enttäuschen, das ist weder ein Bug noch hat es etwas mit gleichen start und endwert zu tun:

[autoit]

#include <Array.au3>
#include <String.au3>
$string = "S!1654.0#879.5!VIA05_NEW#UNNAMED_1_ELKO_I547_A!#"
$array = _StringBetween($string,"!","#")
_ArrayDisplay($array)

[/autoit]

_StringBetween entfernt schlicht auch End und Starttags aus dem Reststring wie bereits in meinem letzten Post beschrieben.

**autoBert**

Zitat von chip

Tja da muss ich dich leider enttäuschen, das ist weder ein Bug noch hat es etwas mit gleichen start und endwert zu tun:
[autoit]
#include <Array.au3>
#include <String.au3>
$string = "S!1654.0#879.5!VIA05_NEW#UNNAMED_1_ELKO_I547_A!#"
$array = _StringBetween($string,"!","#")
_ArrayDisplay($array)
[/autoit]

wieso absolut korrektes Ergebnis, alle Werte die sich zwischen einem "!" (also direkt davor) und "#" (also direkt danach) befinden wurden gefunden:

Code

[0]|1654.0
[1]|VIA05_NEW
[2]|

bei identischen Zeichen wird jedoch jeder 2. zu findende Streing unterschlagen. Oder liegt in deinem Beispiel:

Zitat

Startstring: S!1654.0!879.5!VIA05_NEW!UNNAMED_1_ELKO_I547_A!!

VIA05_NEW nicht zwischen einem ! und einem nachfolgendem !

Wenn die Funktion anscheind so arbeitet wie du beschreibst sollte dies auch aus der Hilfe ersichtlich sein,

frohes neues Jahr

autoBert

**chip**

So mein letzter Post da du es einfach nicht verstehen willst oder es nicht kannst:

[autoit]

#include <Array.au3>
#include <String.au3>
$string = "S!1654.0#879.5!VIA05_NEW#UNNAMED_1_ELKO_I547_A!#"
$array = _StringBetween($string,"!","#")
_ArrayDisplay($array)

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

$string = "S!1654.0!879.5!VIA05_NEW!UNNAMED_1_ELKO_I547_A!!"
$array = _StringBetween($string,"!","!")
_ArrayDisplay($array)

[/autoit]

**autoBert**

ich kann deinen Versuch unbedingt Recht haben zu wollen wirklich nicht verstehen. Sicher sind die Ergebnisse der beiden Arraydisplay jetzt gleich. Im Fall von

[autoit]

_StringBetween($string,"!","#")

[/autoit]

wird ja auch das korrekte Ergebnis angezeigt (wie nach Hilfebeschreibung zu erwarten). Im zweiten Fall aber nicht da sich wie du vielleicht hierdurch:

Zitat

"S!1654.0!879.5!VIA05_NEW!UNNAMED_1_ELKO_I547_A!!"

besser erkennen kannst auch 879.5 zwischen einem Ausrufezeichen davor und einem Ausrufzeichen danach befindet stimmt das Ergebnis nicht. Auch ist nach der Hilfebeschreibung:

Zitat

_StringBetween

Gibt einen Teilstring zwischen einem angegebenen Start-String und einem Stopp-String zurück

nicht mit diesem Ergebnis zu rechnen. Dieser Fall tritt aber nur bei identischem Start- Stopstring auf. Da ich wie bereits geschrieben aber damit leben kann da ich in einem solchen Falle immer StringSplit verwende könnte es mir egal sein, man sollte es aber in der Hilfe unter Bemerkungen hinzufügen.

frohes neues Jahr

autoBert