RemoveString + GetExtensionPart

Hier werden, insbesondere in den Beta-Phasen, Bugmeldungen gepostet. Das offizielle BugForum ist allerdings hier.
marco2007
Beiträge: 906
Registriert: 26.10.2006 13:19
Kontaktdaten:

RemoveString + GetExtensionPart

Beitrag von marco2007 »

Hi,

sollte folgender Code nicht eigentlich funktionieren?

Code: Alles auswählen

app.s="a:\file.exe"
lnk.s=RemoveString(GetFilePart(app), GetExtensionPart(app))+"lnk"
Debug lnk 
Das hier funkt:

Code: Alles auswählen

app.s="a:\file.exe"
filepart.s=GetFilePart(app)
extpart.s=GetExtensionPart(app)
lnk.s=RemoveString(filepart, extpart)+"lnk"
Debug lnk 
lg
Marco
Windows 11 - PB 6.03 x64
_________________________________
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Von der Logik sollte das gehen, aber der Compiler arbeitet da wohl eine
andere Reihenfolge ab.
Besser und genauso kurz wäre es so:

Code: Alles auswählen

app.s="a:\file.exe"
lnk.s = ReplaceString(GetFilePart(app), GetExtensionPart(app), "lnk")
Debug lnk
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7031
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Beitrag von STARGÅTE »

Das liegt auch nicht direkt an GetExtensionPart, sondern an RemoveString.

RemoveString will nur "echte" Variable haben die gelöscht werden sollen:

Code: Alles auswählen

app.s="a:\file.exe" 
Test$ = GetExtensionPart(app)
lnk.s=RemoveString(GetFilePart(app), Mid(Test$,1,3))+"lnk" 
Debug lnk
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Antworten