Ich bin auf der Suche nach einer Möglichkeit einen String auf eine Länge von zb. 7-27 Zeichen festzulegen, danach folgt ein zweiter String mit zb. mit 10-19 Zeichen und diesen per Filewriteline wegzuschreiben. Die Strings kommen aus einer Datenbank und ist mal länger und mal kürzer als die Vorgabe. Die Trennung der Textfelder muss aber im gleichlang sein. Die Textdatei muss von dritten eingelsen werden, dh auch die feste Länge der Felder.
Hat irgendwer eine schöne Idee?
Du musst also Leerzeichen an die Strings anhängen, oder?
[autoit]For $i=StringLen($string) To 26
$string&=" "
Next
Das mit der StringLen - Schleife ist wohl die einzige Möglichkeit, oder? Ich habs mir fast gedacht... da bauche ich wohl sehr viele Schleifen,...
Danke Marthog
wieso?
mach einfach eine Funktion und übergebe jeweils den String
und die notwendige Anzahl Zeichen und lass das dann durch die Schleife laufen.
So brauchst Du nur eine Schleife 
StringFormat
[/autoit]ist vielleicht auch einen Blick wert :).
Johannes
Die Funktion also ungefair so:
[autoit]
$text = "AutoIT.de"
$anzahl = 15
MsgBox(0, "test", laenge())
Func laenge()
For $i = StringLen($text) To $anzahl
$text &= ":-) "
Next
Return $text
EndFunc ;==>laenge
Wie müsse die Ausgabe bei Stringformat aussehen, ich verstehe das noch nicht so recht....
ich würde es so machen...
[autoit]$text = "AutoIT.de"
$anzahl = 15
MsgBox(0, "test", laenge($text,$anzahl))
MsgBox(0, "test", StringLen(laenge($text,$anzahl)))
Func laenge($sString, $nCount)
Local $sStringNew
For $i = StringLen($sString) To $nCount-1
$sStringNew &= " "
Next
Return $sString&$sStringNew
EndFunc ;==>laenge
StringFormat ist kompliziert, aber nützlich. Gibt es in fast jeder Sprache.
[autoit]
StringFormat("%-27.*s", $var)
Erklärung:
% bedeutet: Hier wird was eingefügt
- heißt, der Text steht am Anfang und die Leerzeichen werden angehängt.
27 heißt, dass es 27 Zeichen lang wird
. trennt einfach nur die 27 vom nächsten Teil
* steht für Nachkommastellen. Beim String sollte * stehen.
s steht für String
Statt einer Schleife könnte man auch die
[autoit]
StringMid($sString, $iStart, $iCount)
Funktion nutzen.
also mit StringFormat werden so Leerzeichen angehängt:
[autoit]MsgBox(0, '', StringFormat("%-"&$anzahl&"s", $text))
[/autoit]Die Lösung könnte also so ausehen
ConsoleWrite(StringMid(StringFormat("%-20.*s", "AutoIT.de"),1,20))
[/autoit]Statt einer Schleife könnte man auch die
[autoit][/autoit]
StringMid($sString, $iStart, $iCount)
Funktion nutzen.
Nein. StringMid hängt keine Leerzeichen an, wenn der String zu klein ist.
Warum hat die die Line "#AutoIt3Wrapper_UseX64=n" bzw "#AutoIt3Wrapper_UseX64=y" einfluss auf die Ausgabe?
[autoit]
MsgBox(0,"",StringMid(StringFormat("%-20.*s", "AutoIT.de"),1,20))
Schaue dir mal _StringRepeat() an.
Beispiel:
[autoit]
#include <String.au3>
ConsoleWrite(MinLen("Autoit.de") & @CRLF)
Func MinLen($string, $min = 15, $char = "*", $pre = True)
Local $len = StringLen($string)
If $len >= $min Then Return
If $pre Then Return _StringRepeat($char, $min - $len) & $string
Return $string & _StringRepeat($char, $min - $len)
EndFunc
Gruß,
UEZ
Hallo UEZ,
ich habe das noch angepasst, damit ich die Anzahl und die Variable übergeben kann:
[autoit]
#include <String.au3>
$string = "1-Autoit.de"
$min = 15
ConsoleWrite(MinLen($string,$min) & @CRLF)
$string = "2-Autoit.de"
$min = 20
ConsoleWrite(MinLen($string,$min) & @CRLF)
[/autoit][autoit][/autoit][autoit]Func MinLen(ByRef $string, ByRef $min)
dim $char = "*", $pre = True
Local $len = StringLen($string)
If $len >= $min Then Return
If $pre Then Return _StringRepeat($char, $min - $len) & $string
Return $string & _StringRepeat($char, $min - $len)
EndFunc
Danke
Das kannst du doch!
[autoit]
#include <String.au3>
ConsoleWrite(MinLen("1-Autoit.de") & @CRLF)
ConsoleWrite(MinLen("2-Autoit.de", 20) & @CRLF)
ConsoleWrite(MinLen("1-Autoit.de", 30, "#", False) & @CRLF)
Func MinLen($string, $min = 15, $char = "*", $pre = True)
Local $len = StringLen($string)
If $len >= $min Then Return
If $pre Then Return _StringRepeat($char, $min - $len) & $string
Return $string & _StringRepeat($char, $min - $len)
EndFunc
Gruß,
UEZ
Super so geht es noch besser,als im meinem geänderten Beispiel.
Danke UEZ, mit Funktion bin ich noch nicht so vertraut. 
Kannst du mir auch erklären warum die Wahl der AutoIt3Wrapper_UseX64=y eine ander Textdarstellung, als =n bring?
Kann ich dir auch nicht sage; vielleicht ein Bug!?
Gruß,
UEZ
so,
finale Version auf das minimum gekürzt und ohne Einschränkung nutzbar auch mit "x64".
MsgBox(0,"",StringFixLength("AutoIT.de",20)); $var1 = variable Stringlänge, $var2 = Anzahl Zeichen, die zurückgegeben werden sollen
[/autoit][autoit][/autoit][autoit]Func StringFixLength($sString, $nCount)
Return StringMid(StringFormat("%-"&$nCount&"s", $sString),1,$nCount)
EndFunc
Danke Schnuffel , besser geht es nicht.
