--> Archiwum Forum
Hakim [ Generaďż˝ ]
Jak zedytować hurtowo wiele wyrazów? (wyrażenia regularne?).
Witam.
Mam słownik języka polskiego z programu Open Office w mniej więcej takiej postaci (wycinek):
abandon/NQsT
Abaris/O
abarot
abat/NOqsT
abatysa/MnN
abazja/AMNn
abażurek/PSZz
abażur/NOsT
abażuru
ABB
ABBA
Abba/M
abbandonasi
abbandonatamente
Abbas/NOosT
Abbasyda/MNqT
I z tej listy chciałbym hurtowo usunąć wszystko co znajduje się po znaku "/" wraz z nim samym, tak by pozostały tylko wyrazy.
Czyli w linii, w której jest wyraz i jego zasady odmiany po slashu (np. abandon/NQsT), usuwam znak "łamane" i to co jest po nim (i zostaje samo abandon), natomiast w linii, gdzie nic po wyrazie nie występuje (np. abażuru), wyraz pozostaje bez zmian.
Jak to najszybciej zrobić?
Plik jest w formacie txt, wyrazy zapisane jeden pod drugim. Wyrazów są tysiące.
Bzyk [ Offensive ]
preg_replace("%(^[^\/]‹1,›)\/.‹1,›$","\\1",$zmienna);
coś w ten deseń..
Hakim [ Generaďż˝ ]
A miałbym ogromną prośbę, dałoby szybko napisać gotowca php, którego bym sobie uruchomił na serwerze i całość by sobie spokojnie poucinał?
Niestety nie znam się na php.
Chyba, że to będzie dużo roboty, to coś poczytam w necie i pokombinuje sam.
vult-q3 [ Generaďż˝ ]
przerobiony plik pojawi sie tam gdzie jest exe ;]
Hakim [ Generaďż˝ ]
DZIĘKUJĘ!
Działa. Będzie to trochę trwało, ale to jest dokładnie to o co mi chodziło.
Jeszcze raz dziękuję.
PS. mam nadzieję, że nazwa sss.exe nie ma nic wspólnego z trojanem co w sieci o nim piszą;)
vult-q3 [ Generaďż˝ ]
ładny pulpit :>
Hakim [ Generaďż˝ ]
vult-q3 ---> mam prośbę, czy byłaby możliwość ujawnienia tego skryptu, który mi napisałeś (jako plik au3)?
Pobrałem AutoIt, ale nie chce mi zdekompilować, wyskakuje jakiś błąd, że to nie jest skompilowany skrypt AutoIt.
Hakim [ Generaďż˝ ]
Może teraz a propos [7]?
Hakim [ Generaďż˝ ]
Widzę, że vult-q3 na forum grasuje;), więc może teraz podbiję.
vult-q3 [ Generaďż˝ ]
sorki ze z takim opoznieniem ale nie zauwazylem wczesniej :P
juz nie pamietam ale mniej wiecej tak to zrobilem:
#include <Array.au3>
#include <file.au3>
Dim $arr
$plik=FileOpenDialog("",@ScriptDir,"txt (*.txt)")
_FileReadToArray($plik,$arr)
For $i=1 To $arr[0]
$split=StringSplit($arr[$i],"/")
$arr[$i]=$split[1]
TrayTip("",$i&"/"&$arr[0],100)
Next
_FileWriteFromArray("sss.txt",$arr)