Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Polonica

wojtek333314

Rekomendowane odpowiedzi

wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

Opublikowano

Ahh te polskie znaki w Twoich napisach do filmu...same jakies wygibasy zamiast ł,ó itp. co tu zrobić ?

A może jestes administratorem serwera Minecraft i tworzysz nowe misje wraz z pluginem iQuest ...zrobiles juz grubo ponad 50 a konsola wyrzuca blad ze znaleziono znak specjalny i plugin przerwal swe dzialanie...masz go szukac recznie?Albo przez ctrl+f i kazdy znak z osobna? Juz nie!

Polonica

 

Czyli narzędzie stworzone specjalnie po to aby usuwać polskie znaki z całego wybranego pliku, lub też po wklejeniu tekstu !

Oto Source-Code:

 

 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#include <array.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Polonica v.1.0", 624, 243, 543, 256)
$Tab1 = GUICtrlCreateTab(8, 0, 609, 241)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Z pliku")
$Edit1 = GUICtrlCreateEdit("", 16, 32, 297, 185)
GUICtrlSetState(-1,$GUI_ENABLE)
GUICtrlSetData(-1, "")
$Checkbox1 = GUICtrlCreateCheckbox("ą=a", 328, 40, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("ć=c", 328, 56, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("ę=e", 328, 72, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("ł=l", 328, 88, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("ń=n", 328, 104, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("ó=o", 328, 120, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("ś=s", 328, 136, 97, 17)
$Checkbox8 = GUICtrlCreateCheckbox("ź=z", 328, 152, 97, 17)
$Checkbox9 = GUICtrlCreateCheckbox("ż=z", 328, 168, 97, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Zaznacz wszystkie", 328, 192, 113, 17)
$Checkbox12a = GUICtrlCreateCheckbox("Odznacz wszystkie", 458, 192, 113, 17)
$Button1 = GUICtrlCreateButton("Wybierz plik", 432, 208, 75, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Usuwaj!", 520, 208, 75, 25, $WS_GROUP)
$TabSheet2 = GUICtrlCreateTabItem("Wklej i usun!")
$Edit1a = GUICtrlCreateEdit("", 16, 32, 297, 185)
GUICtrlSetState(-1,$GUI_ENABLE)
GUICtrlSetData(-1, "")
$Checkbox1a = GUICtrlCreateCheckbox("ą=a", 328, 40, 97, 17)
$Checkbox2a = GUICtrlCreateCheckbox("ć=c", 328, 56, 97, 17)
$Checkbox3a = GUICtrlCreateCheckbox("ę=e", 328, 72, 97, 17)
$Checkbox4a = GUICtrlCreateCheckbox("ł=l", 328, 88, 97, 17)
$Checkbox5a = GUICtrlCreateCheckbox("ń=n", 328, 104, 97, 17)
$Checkbox6a = GUICtrlCreateCheckbox("ó=o", 328, 120, 97, 17)
$Checkbox7a = GUICtrlCreateCheckbox("ś=s", 328, 136, 97, 17)
$Checkbox8a = GUICtrlCreateCheckbox("ź=z", 328, 152, 97, 17)
$Checkbox9a = GUICtrlCreateCheckbox("ż=z", 328, 168, 97, 17)
$Checkbox10a = GUICtrlCreateCheckbox("Zaznacz wszystkie", 328, 192, 113, 17)
$Checkbox11a = GUICtrlCreateCheckbox("Odznacz wszystkie", 328, 209, 113, 17)
$Button2a = GUICtrlCreateButton("Usuwaj!", 520, 208, 75, 25, $WS_GROUP)
$Button3a = GUICtrlCreateButton("Wyczysc pole", 520, 178, 75, 25, $WS_GROUP)
$TabSheet3 = GUICtrlCreateTabItem("O programie")
$Label2 = GUICtrlCreateLabel("GG: 7213552", 24, 32, 236, 217)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
global $tabela
Global $wybierz
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button1
plik()
case $button2
usuwaj()
case $button2a
wklejiusun()
Case $button3a
pole_czysc()

EndSwitch
if GUICtrlRead($checkbox10)=1 then 
GUICtrlSetState($checkbox1,$gui_checked)
GUICtrlSetState($checkbox2,$gui_checked)
GUICtrlSetState($checkbox3,$gui_checked)
GUICtrlSetState($checkbox4,$gui_checked)
GUICtrlSetState($checkbox5,$gui_checked)
GUICtrlSetState($checkbox6,$gui_checked)
GUICtrlSetState($checkbox7,$gui_checked)
GUICtrlSetState($checkbox8,$gui_checked)
GUICtrlSetState($checkbox9,$gui_checked)
GUICtrlSetState($checkbox10,$gui_unchecked)
GUICtrlSetState($checkbox12a,$gui_unchecked)
EndIf
if GUICtrlRead($checkbox12a)=1 then 
GUICtrlSetState($checkbox1,$gui_unchecked)
GUICtrlSetState($checkbox2,$gui_unchecked)
GUICtrlSetState($checkbox3,$gui_unchecked)
GUICtrlSetState($checkbox4,$gui_unchecked)
GUICtrlSetState($checkbox5,$gui_unchecked)
GUICtrlSetState($checkbox6,$gui_unchecked)
GUICtrlSetState($checkbox7,$gui_unchecked)
GUICtrlSetState($checkbox8,$gui_unchecked)
GUICtrlSetState($checkbox9,$gui_unchecked)
GUICtrlSetState($checkbox10,$gui_unchecked)
GUICtrlSetState($checkbox12a,$gui_unchecked)
EndIf
if GUICtrlRead($checkbox11a)=1 then 
GUICtrlSetState($checkbox1a,$gui_unchecked)
GUICtrlSetState($checkbox2a,$gui_unchecked)
GUICtrlSetState($checkbox3a,$gui_unchecked)
GUICtrlSetState($checkbox4a,$gui_unchecked)
GUICtrlSetState($checkbox5a,$gui_unchecked)
GUICtrlSetState($checkbox6a,$gui_unchecked)
GUICtrlSetState($checkbox7a,$gui_unchecked)
GUICtrlSetState($checkbox8a,$gui_unchecked)
GUICtrlSetState($checkbox9a,$gui_unchecked)
GUICtrlSetState($checkbox10a,$gui_unchecked)
GUICtrlSetState($checkbox11a,$gui_unchecked)
EndIf

if GUICtrlRead($checkbox10a)=1 then 
GUICtrlSetState($checkbox1a,$gui_checked)
GUICtrlSetState($checkbox2a,$gui_checked)
GUICtrlSetState($checkbox3a,$gui_checked)
GUICtrlSetState($checkbox4a,$gui_checked)
GUICtrlSetState($checkbox5a,$gui_checked)
GUICtrlSetState($checkbox6a,$gui_checked)
GUICtrlSetState($checkbox7a,$gui_checked)
GUICtrlSetState($checkbox8a,$gui_checked)
GUICtrlSetState($checkbox9a,$gui_checked)
GUICtrlSetState($checkbox11a,$gui_unchecked)
GUICtrlSetState($checkbox10a,$gui_unchecked)
EndIf
WEnd




func plik()
global $wybierz=FileOpenDialog("Wybierz plik tekstowy", @DesktopDir,"Pliki tekstowe (*.txt)", 1 )
global $plik=FileOpen($wybierz)
global $czytaj=FileRead($plik)
GUICtrlSetData($edit1,$czytaj)
EndFunc

func usuwaj()
ProgressOn("INFO","Zmienianie znaków")
if GUICtrlRead($checkbox1)=1 then
_ReplaceStringInFile($wybierz, "ą", "a")
ProgressSet(10,"Zmiana ą na a")
Sleep(300)
EndIf
If GUICtrlRead($checkbox2)=1 then
_ReplaceStringInFile($wybierz, "ć", "c")
ProgressSet(20,"Zmiana ć na c")
Sleep(300)
EndIf
If GUICtrlRead($checkbox3)=1 then
_ReplaceStringInFile($wybierz, "ę", "e")
ProgressSet(30,"Zmiana ę na e")
Sleep(300)
EndIf
If GUICtrlRead($checkbox4)=1 then
_ReplaceStringInFile($wybierz, "ł", "l")
ProgressSet(40,"Zmiana ł na l")
Sleep(300)
EndIf
If GUICtrlRead($checkbox5)=1 then
_ReplaceStringInFile($wybierz, "ń", "n")
ProgressSet(50,"Zmiana ń na n")
Sleep(300)
EndIf
If GUICtrlRead($checkbox6)=1 then
_ReplaceStringInFile($wybierz, "ó", "o")
ProgressSet(60,"Zmiana ó na o")
Sleep(300)
EndIf
If GUICtrlRead($checkbox7)=1 then
_ReplaceStringInFile($wybierz, "ś", "s")
ProgressSet(70,"Zmiana ś na s")
Sleep(300)
EndIf
If GUICtrlRead($checkbox8)=1 then
_ReplaceStringInFile($wybierz, "ź", "z")
ProgressSet(80,"Zmiana ź na z")
Sleep(300)
EndIf
If GUICtrlRead($checkbox9)=1 then
_ReplaceStringInFile($wybierz, "ż", "z")
ProgressSet(90,"Zmiana ż na z")
Sleep(300)
EndIf
ProgressSet(100,"Wykonano")
Sleep(800)
ProgressOff()
GUICtrlSetData($edit1,"")
Sleep(1000)
if FileExists($wybierz)=false Then
MsgBox(0,"INFO","Wskaz plik tekstowy")
plik()
EndIf
$plik2=FileOpen($wybierz)
$czytaj2=FileRead($plik2)
GUICtrlSetData($edit1,$czytaj2)

EndFunc


Func wklejiusun()
$polonica_tymczasowy=GUICtrlRead($edit1a)
$plik_t=FileWrite(@DocumentsCommonDir&"delete.polonica",$polonica_tymczasowy)
if GUICtrlRead($checkbox1a)=1 then
_ReplaceStringInFile(@DocumentsCommonDir&"delete.polonica", "ą", "a")
EndIf
if GUICtrlRead($checkbox2a)=1 then
   _ReplaceStringInFile(@DocumentsCommonDir&"delete.polonica", "ć", "c")
EndIf
if GUICtrlRead($checkbox3a)=1 then
_ReplaceStringInFile(@DocumentsCommonDir&"delete.polonica", "ę", "e")
EndIf
if GUICtrlRead($checkbox4a)=1 then
_ReplaceStringInFile(@DocumentsCommonDir&"delete.polonica", "ł", "l")
EndIf
if GUICtrlRead($checkbox5a)=1 then
_ReplaceStringInFile(@DocumentsCommonDir&"delete.polonica", "ń", "n")
EndIf
if GUICtrlRead($checkbox6a)=1 then
_ReplaceStringInFile(@DocumentsCommonDir&"delete.polonica", "ó", "o")
EndIf
if GUICtrlRead($checkbox7a)=1 then
_ReplaceStringInFile(@DocumentsCommonDir&"delete.polonica", "ś", "s")
EndIf
if GUICtrlRead($checkbox8a)=1 then
_ReplaceStringInFile(@DocumentsCommonDir&"delete.polonica", "ź", "z")
EndIf
if GUICtrlRead($checkbox9a)=1 then
_ReplaceStringInFile(@DocumentsCommonDir&"delete.polonica", "ż", "z")
EndIf
$zastap=FileRead(@DocumentsCommonDir&"delete.polonica")
GUICtrlSetData($edit1a,"")
GUICtrlSetData($edit1a,$zastap)
FileDelete(@DocumentsCommonDir&"delete.polonica")
EndFunc


func pole_czysc()
GUICtrlSetData($edit1a,"")
EndFunc

 

 

 

Mam nadzieję ,że program ułatwi nie jednemu różne problemy ;)

W całości napisany przeze mnie , jeśli macie jakieś sugestie to śmiało :)

 

DOWNLOAD:Pobierz

SKAN:Kliknij

 

Pozdrawiam ;)

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

C.J Weteran

C.J

Opublikowano
Weteran

C.J

Opublikowano

Przydatne..

Dodał bym,aby checkbox zaznacz wszystko także odznaczał wszystko.(chyba wiesz o co chodzi)

Przycisk, który zapisywał by zmiany w pliku.

Przycisk do czyszczenia miejsca gdzie pojawia się tekst (wklej i usun).

MsgBox, który informował by o zakończeniu czynności...

1329036830-U154499.png
wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

  • Autor
Opublikowano

Z checkboxem mialem problem poniewaz zrobilem taki na poczatku jak mowisz ale potem nie dalo sie pojedynczych zaznaczac, gryzlo sie z instrukcja if...

Zmiany w pliku sa wprowadzane automatycznie ;) _ReplaceStringInFile zapisuje od razu.

Zaraz dodam tego msgboxa jak mowisz i ten przycisk ;)

 

Dzieki za idee :)

 

 

EDIT: checkboxy dodane, informacja o zakonczeniu dodana, przycisk do czysczenia dodany :)

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

Opublikowano

Nie wiem czy robię coś źle, ale mam błąd. W zakładce "Wklej i usun!" po wprowadzeniu tekstu "ąćęłńóśźż" program zwraca "aceln??". Po wprowadzeniu między polskie znaki innej litery wszystko jest ok. np. "ąćęłńóśźż" -> "aacaealanaoasazaz". Taki mały bug. :)

wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

  • Autor
Opublikowano

@UP Faktycznie, też tak mam w tym wypadku, ale mimo to sądzę ,że nie jest to jakiś wielki problem bo - logicznie rzecz biorąc - nie znajdziesz słowa w naszym języku , które składało by się z samym znaków ojczystych więc na pewno będzie działał poprawnie przy wszelkich poprawkach do napisów filmów itd :)

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

wjatek Specjalista

wjatek

Opublikowano
Specjalista

wjatek

Opublikowano

Takie coś jest serio przydatne a nie jakieś syfy nikomu nie potrzebne. Forum jest pełne śmieci a ten skrypcik jest jednym z niewielu sensownych skryptów w dziale. Good job ;) Przydałby się temat ze spisem najciekawszych gotowców. Oczywiście w celach edukacyjnych :P

  • 8 miesięcy temu...
Heniut Weteran

Heniut

Opublikowano
Weteran

Heniut

Opublikowano

Kodu było by o wiele mniej gdybyś to tworzył na tablicach.

/ GA-970A-UD3 / FX-6300 / Sapphire Xtreme 5830 / OCZ ZS 550W / Brutus M23 /

| MPC Coders Team | MPC Gold Member | C#, C++, PHP, (N)ASM, AutoIT, Python, Java |

wojtek333314 Specjalista

wojtek333314

Opublikowano
Specjalista

wojtek333314

  • Autor
Opublikowano

Tak wiem ,ale rok temu jeszcze ich nie umiałem ;)

To był początek w autoit ;)

Moje gry i programy:

[Poradnik] Pisanie gry 2D w AutoIT z silnikiem Irrlicht

[Program] SendToAll czyli wyslij meail do wielu osób za pomocą kliknięcia!

[Program] Polonica - usuń polskie znaki z pliku czy tekstu! Z troską o Minecraftowych administratorów i kinomaniaków

[Gra] Xanthous - czyli gra w AutoIT

[Program] Renaming - program do masowego zmieniania nazw plików, numeracji itp.

[Gra] Prosta strzelanka 3D(!) w AutoIT!

[NEW! Program] Piszmy to razem! Czyli wspólne programowanie w sieci!

Prawdziwy pech ,czyli jedna liczba która dzieliła mnie od 30000 pln :

http://img26.imagesh...ial30000pln.jpg

 

 

11967467.jpg

  • 9 miesięcy temu...
ktoZjarany Uczeń

ktoZjarany

Opublikowano
Uczeń

ktoZjarany

Opublikowano

Programik ekstra, bardzo przydatny, ale znalazłem jedno ale:

po wpisaniu żółć napis znika (jednak jest słowo z samymi polskimi znakami ;P)

 

ponadto program wszystkie zmienione litery zamienia na małe:

 

Pękło -> Peklo

Łajba -> lajba

Zkumeku Znawca

Zkumeku

Opublikowano
Znawca

Zkumeku

Opublikowano

Programik ekstra, bardzo przydatny, ale znalazłem jedno ale:

po wpisaniu żółć napis znika (jednak jest słowo z samymi polskimi znakami ;P)

 

ponadto program wszystkie zmienione litery zamienia na małe:

 

Pękło -> Peklo

Łajba -> lajba

6-Gold.jpg

 

Za ten przepiękny odkop dostajesz aż 6 złotych łopat! Kozaq!

 

@Topic... program dobry ale małe poprawki by się git przydały.

9obpmnjr.png

  • 2 tygodnie później...

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...