Pretvorba Excel je datoteka zapisnika ADIF

Proces pretvorbe iz MS Excel-dnevnik© u ADIF je relativno jednostavna i može se obaviti pomoću malo programiranja VBA. Kroz ovaj link može se odnositi na specifikacije ADIF 1.0 koji se koristi u većini log, je važno da ste pročitali ovaj dokument.

Za početak postupka pretvorbe na temelju ovoga tutorial započeti stvaranjem datoteke u MS Excel©. U prvom lana Napišite ime polja ćete želite uvesti (Molimo provjerite ADIF 1.0 imena polja). Čak u prvom redu, tip “ADIF RAW” na posljednja stanica, Ovo je mjesto gdje će tekst biti napisan u ADIF.

Radni list tako da izgleda ovako (ali još uvijek nema podataka o liniji 2). Iako ADIF oblik ne određuje minimalni broj polja, najmanje log veza mora imati vrijednosti Poziv, QSO_Date, Time_On, S modni pojas.

Zatim odaberite čitavog radnog lista i oblik stanice kao tekst.

Spremite datoteku kao xls2adi.xls (list u MS Excel©)

Vratimo se sada pisati i umetnite kod u VBA. Idite na Tools / Macro, a zatim kliknite Visual Basic Editor (Alt F11).

U VBA editor Dvaput kliknite na "ThisWorkbook’ da je u 'projekta – VBAProject '. Ovo je mjesto gdje ćete dobiti glavni blok koda koji će se pokrenuti kada otvorite ovu datoteku ponovo.

Blok koda koji slijedi postavlja neke varijable i poziva funkcija fCampoAdifValido (linija 05) koji će provjeriti je li naziv polja koje je na prvoj crti odgovara specifikaciji ADIF. Ako su svi nazivi polja točni funkcija poziva postupak pEscreveAdif (linija 09) će napisati zapisnik ADIF, Ako polje ima pogrešan naziv funkcije prikazuje poruka o pogrešci (linija 07) i završava.

Kopiraj / Zalijepi ili upišite sljedeći kod:

 

Private Sub Workbook_Open()
  Kao Boolean Dim bNomeDoCampoValido
  (conLinhaInicial)
  sUltimaColuna = fQualEAUltimaColuna(conColunaInicial)
  bNomeDoCampoValido = fCampoAdifValido(conColunaInicial, sUltimaColuna)
    Ako bNomeDoCampoValido = False Tada
       ("Pronađeno nevažeći nazive polja" & vbCrLf & "Uklonite stupce popunjava u crvenom!")
    Drugo
      

U VBA editor, kliknite Umetni / Modul. U ovom modulu će se preostale kôd koji se zove glavni blok.

Konstante conLinhaInicial (linija 02 sljedeći blok) i conColunaInicial (linija 03 sljedeći blok) definirati linije 2 (Proračunske tablice) su prva registracija i da stupac (Proračunske tablice) prvo polje.

Funkcije fQualEAUltimaLinha (linija 08 sljedeći blok) i fQualEAUltimaColuna (linija 17 sljedeći blok) će odrediti posljednji redak i stupac podataka. To zahtijeva praznu ćeliju znači kraj log zapisa.

Funkcija fCampoAdifValido (linija 05 ne prethodnih bloco) testirana valjanost naziv polja. Ciklusa 'Select Case sNomeDoCampo’ (linija 31 sljedeći blok) više polja mogu biti dodan prema specifikaciji ADIF.

Postupak pEscreveAdif (linija 09 ne prethodnih bloco) će napisati tekst u stupcu koji je ADIF “ADIF RAW” prva linija. Ovaj postupak je preuzet iz područja Ifen QSO_DATE, dvije točke u polju i dodao TIME_ON M na kraju polja BAND. Da bi to više makronaredba može se izreći strože uvjete za provjeru podataka u ovom postupku.

Kopiraj / Zalijepi ili upišite sljedeći kod u modul:

 

Opcija Eksplicitno
 2
Javni Const conColunaInicial kao niz = "A"
Kao Integer Public iUltimaLinha
(iPrimeiraLinha Kao Integer) Kao Integer
  (Folha1.Cells(iValRecebido, "A")) > 0
      iValRecebido = iValRecebido + 1
    Petlja
   - 1
End Function

(sPrimeiraColuna kao niz) Gudački
  (sPrimeiraColuna)
    Učiniti dok Len(Folha1.Cells(1, Chr(iValRecebido))) > 0
      iValRecebido = iValRecebido + 1
    Petlja
  (iValRecebido - 1)
End Function

(sPrimeiraColuna kao niz, sUltimaColuna kao niz) Booleova
  (sPrimeiraColuna) Za uzlazno(sUltimaColuna)
      sNomeDoCampo = LCase(Folha1.Cells(1, iColunaCorrente - 64))
      Odaberite Case sNomeDoCampo
         "grupa": fCampoAdifValido = True
         "poziv": fCampoAdifValido = True
         "CQZ": fCampoAdifValido = True
         "način": fCampoAdifValido = True
         "qso_date": fCampoAdifValido = True
         "rst_rcvd": fCampoAdifValido = True
         "rst_sent": fCampoAdifValido = True
         "SRX": fCampoAdifValido = True
         "STX": fCampoAdifValido = True
         "time_on": fCampoAdifValido = True
         "adif sirovina"
          fCampoAdifValido = True
           - 64
        Slučaj drugi
          (1, iColunaCorrente - 64).Interior.Color = RGB(255, 0, 0)
          fCampoAdifValido = False
        ()
  Kao Integer Dim iLinhaCorrente
   ""
    Za iColunaCorrente = uzlazno(conColunaInicial) Za uzlazno(sUltimaColuna) - 1
      Ako LCase(Folha1.Cells(1, Chr(iColunaCorrente))) = "grupa" Zatim
        (iLinhaCorrente, Chr(iColunaCorrente)) & "M"
      Drugo
        (Folha1.Cells(1, Chr(iColunaCorrente))) = "qso_date" Zatim
          (Folha1.Cells(iLinhaCorrente, Chr(iColunaCorrente)), "-", "")
        Drugo
          (Folha1.Cells(1, Chr(iColunaCorrente))) = "time_on" Zatim
            (Folha1.Cells(iLinhaCorrente, Chr(iColunaCorrente)), ":", "")
          Drugo
            (iLinhaCorrente, Chr(iColunaCorrente))
          Kraj Ako
         & "<" & LCase(Folha1.Cells(1, Chr(iColunaCorrente))) & ":" & Samo(sTextoNaCelula) & ">" & sTextoNaCelula
    (iLinhaCorrente, iAdifRaw) = SLinhaEmAdif & "<" & "EOR" & ">"
  Sljedeći

 

Kliknite na File / Save xls2adi.xls i zatvorite VBA editor.

Sada kopirajte podatke u MS Excel datoteka© želite pretvoriti u odgovarajući stupci, ozbiljno prestati na kraju i MS Excel©.

Možda ćete morati promijeniti postavke za MS Excel sugurança© za pokretanje makronaredbe, ako je potrebno otići na Tools / Macro i kliknite sigurnost, Odaberite nižoj razini. To je bio napisan za MS Excel© em MS Windows XP© (kako u Portugalski inačici). Koristite ovaj kod noutra Vai Lingua, npr. na engleskom jeziku, zamijeniti termin "Sheet1’ Por 'Sheet1’

Kada dvokliknete datoteku xls2adi.xls, kôd koji ste upravo unijeli će se izvršiti i stupaca “ADIF RAW” je naš Login ADIF formatu.

Sada do kraja, odaberite sadržaj stupca “ADIF RAW” i kopija (Ctrl C), početak ili Notepad (Blokčić za bilješke) i Cole (Ctrl V). Spremite datoteku s dodatno proširenje.

Ovaj kod uzorka je besplatan za korištenje, možete slobodno koristiti. To je vrlo jednostavan primjer onoga što se može učiniti pomoću VBA (Visual Basic for Applications). Komplement ovaj kod provjere valjanosti s više točnih, osobito u području 'qso_date’ e 'time_on', gdje formata mora odgovarati specifikaciji ADIF. Ukoliko zamijetite grešku ili imate bilo kakvih pitanja, ne ustručavajte se komentirati. Nadam se da članak će biti koristan.

Tagovi: ,

Instaliranje Debian NVIDIA grafičke kartice

To je, još jedan 'Kako …’ i opet na nVidia grafičke, razlika je u tome što to radi savršeno za mene (ne i Debian i Ubuntu ne).

Prva preporuka je da posjetite stranicu za preuzimanje upravljačkih programa NVIDIA, Odaberite model kartice, OS (u mom slučaju 32-bitni Linux) e linguagem. A opcija 2 NDO djela za Linux. Klik DOWNLOAD, kopirajte link adresu koja se nalazi na gumb SLAŽETE & DOWNLOAD (nešto poput http://us.download.nvidia.com/XFree86/Linux-x86/190.53/NVIDIA-Linux-x86-190.53-pkg1.run).

Otvorite terminal i upišite su proći korijena.

Tip apt-get install build-essential linux-headers-$(uname -r).

Tip cd /usr/src potaknuti ptice ovaj direktorij.

Tip ln -s linux-headers-$(uname -r) linux stvoriti simboličku vezu.

Tip wget i kliknite desnu tipku miša da biste zalijepili vezu ste kopirali stranicu iz NVIDIA (će stajati kao wget http://us.download.nvidia.com/XFree86/Linux-x86/190.53/NVIDIA-Linux-x86-190.53-pkg1.run).

Tip /etc/init.d/gdm stop to će prestati GDM i prolazi na terminal. Od ove točke potrebno je imati ovaj članak tiskan, to će biti bez grafičko okruženje.

Sada kada je u terminalu brz ulazak cd /usr/src.

Zatim pokrenite skriptu instalaciju upisivanjem NVIDIA sh NVIDIA-Linux-x86-190.53-pkg1.run.

Instalacijski vas pita za početak prihvatiti ugovor o licenci.

Odgovor NE pitanje o preuzimanju kernela iz NVIDIA.

Klik OK kompajlirati novi kernel.

Klik NE na poruka '… prekid sada ".

Neka instalacijski i odaberite Nastaviti Da kako bi se omogućilo automatsko ažuriranje vaše xorg.conf po Nvidia-xconfig.

Klik OK i kad završi instalaciju, će ostati ponovno u terminalu brz, a zatim upišite startx pokrenuti X server opet.

Sada možete izmijeniti razlučivost i druge napredne postavke za grafičke kartice NVIDIA X Server Settings utility koji se u izborniku Alati za održavanje sustava (Alati za održavanje sustava).

Tagovi: , , ,

ASCII za UTF-8 Converter

ASC2UTF8 je mali alat za pretvaranje nekih posebnih znakova iz ASCII u UTF-8.

ASC 2 UTF-8 Converter

U pripremi, s nekim frekvencija, tekstovi uključiti u php skripte, došao potrebu napisati ovaj program u Gambas2.

Prilikom rada s dva ili više jezika na odjek u HTML okruženju, pisati posebne znakove može biti zanimljiv izazov. Korištenje META oznaku <meta http-equiv=Content-Type content="text/html; charset=UTF-8"> i pretvorbe stol za UTF-8 može biti dobro rješenje (rezultiralo barem sa mnom). Komunalnih ASC2UTF8 samo da pretvara neke posebne znakove, onih koji zapravo treba pretvoriti mi faziam. O kod-Fonte može se lako mijenjati u druge posebne znakove.

Tagovi: , ,

Como instalar o OpenOffice 3.1 Debian ne 5.0 Lenny

Za Debian Lenny defeito navedene u OpenOffice 2.6.4, No, OpenOffice 3.1 je objavljena, za instalaciju, jednostavno slijedite ove korake:

  • Dodajte backports repozitorij, kao root urediti / etc / apt / sources.list i dodajte liniju deb http://www.backports.org/debian lenny-backports main contrib non-free
  • Otvorite konzolu (kao root)
  • Instale o 'Debian backports za ključeve’ tipkanje apt-get install debian-backports-keyring
  • Update paket popis upisivanjem apt-get update
  • Por FIM instale o OpenOffice.org apt-get -t lenny-backports install openoffice.org

I spreman, je napravio. O OpenOffice.org 3.1 je instaliran i spreman za uporabu, digité 'openoffice.org’ tješim ili koristite izbornik 'Aplikacije'.

Tagovi: