Convert Excel log failus, lai ADIF

Pārrēķina procesā no MS Excel žurnālā© līdz ADIF ir samērā vienkārša un to var izdarīt, izmantojot mazliet programmēšana VBA. Ar šo saite var atsaukties uz ADIF specifikāciju 1.0 kas tiek izmantota vairumā log, Ir svarīgi, ka jums izlasīt šo dokumentu.

Lai sāktu konvertēšanas procesu, pamatojoties uz šo tutorial sākt, izveidojot failu MS Excel©. Pirmajā veļas rakstīt vārdu laukiem jūs vēlaties importēt (Lūdzu, pārbaudiet ADIF 1.0 nosaukuma laukiem). Pat pirmajā rindā, tips “ADIF RAW” pēdējo šūnu, Tas ir, ja teksts tiek rakstīts ADIF.

Darba lapu izskatās šādi (bet joprojām nav datu par līnijas 2). Kaut ADIF formāts nav norādīts minimālais vairākās jomās, vismaz jūsu QSO log ir jābūt vērtības Call, QSO_Date, Time_On, Band e Mode.

Pēc tam atlasiet visu darblapu un formatētu šūnas kā tekstu.

Saglabāt failu kā xls2adi.xls (darblapu MS Excel©)

Ļaujiet mums tagad rakstīt un ievietot kodu VBA. Iet uz Tools / Macro un noklikšķiniet uz Visual Basic redaktors (Alt F11).

Jo VBA redaktoru Veiciet dubultklikšķi uz ThisWorkbook’ kas atrodas "projekts – VBAProject ". Tas ir, ja jums galvenais bloka kodu, kas darbosies, atverot šo failu vēlreiz.

Koda bloks, kas seko noteiktas dažas mainīgajiem un izsauc funkciju fCampoAdifValido (līnija 05) kas pārbauda, ​​vai lauka nosaukums, kas ir uz pirmās līnijas atbilst specifikācijai ADIF. Ja visi lauku nosaukumi ir pareiza funkcija zvanus procedūru pEscreveAdif (līnija 09) rakstīt log in ADIF, Ja lauks ir nederīgs vārds funkcija rāda kļūdas ziņojumu (līnija 07) un beidzas.

Copy / paste vai ierakstiet sekojošo kodu:

 

Private Sub Workbook_Open()
  Kā Boolean Dim bNomeDoCampoValido
  (conLinhaInicial)
  sUltimaColuna = fQualEAUltimaColuna(conColunaInicial)
  bNomeDoCampoValido = fCampoAdifValido(conColunaInicial, sUltimaColuna)
    Ja bNomeDoCampoValido = False tam
       ("Atrasts nederīgs lauku nosaukumi" & vbCrLf & "Noņemt ailēm aizpildītām ar sarkanu!")
    Cits
      

Jo VBA redaktoru, noklikšķiniet uz Ievietot / modulis. Šajā modulī tiks atlikušo kods, kas tiek saukts par galveno bloku.

Konstantes conLinhaInicial (līnija 02 nākamais bloks) un conColunaInicial (līnija 03 nākamais bloks) define line 2 (Izklājlapas) ir pirmās reģistrācijas, un ka kolonna (Izklājlapas) Pirmajā jomā.

Funkcijas fQualEAUltimaLinha (līnija 08 nākamais bloks) un fQualEAUltimaColuna (līnija 17 nākamais bloks) noteiks pēdējo rindu un kolonnu datu. Tas prasa tukša šūna nozīmē beigas žurnāla ierakstiem.

Funkcija fCampoAdifValido (līnija 05 iepriekšējā bloka) testi derīgumu lauka nosaukuma. Cikla "Izvēlēties Lieta sNomeDoCampo’ (līnija 31 nākamais bloks) vairāk laukus var pievienot atbilstoši specifikācijai ADIF.

Procedūra pEscreveAdif (līnija 09 iepriekšējā bloka) rakstīt tekstu kolonnā, ir ADIF “ADIF RAW” Pirmā līnija. Šī procedūra ir ņemti no lauka Ifen QSO_DATE, diviem punktiem jomā un pievienotās TIME_ON M beigās lauka BAND. Lai šo vairāk makro var uzlikt stingrākus nosacījumus, lai pārbaudītu datu par šo procedūru.

Copy / paste vai ierakstiet sekojošo kodu, kas moduļa:

 

Variants Nepārprotama
 2
Sabiedrības Const conColunaInicial Kā String = "A"
Kā Integer Sabiedrības iUltimaLinha
(iPrimeiraLinha kā Integer) Kā Integer
  (Folha1.Cells(iValRecebido, "A")) > 0
      iValRecebido = iValRecebido + 1
    Cilpa
   - 1
Beigās funkcija

(String sPrimeiraColuna) Stīgu
  (sPrimeiraColuna)
    Vai gan Len(Folha1.Cells(1, Chr(iValRecebido))) > 0
      iValRecebido = iValRecebido + 1
    Cilpa
  (iValRecebido - 1)
Beigās funkcija

(String sPrimeiraColuna, sUltimaColuna Kā String) Bula
  (sPrimeiraColuna) Lai Asc(sUltimaColuna)
      sNomeDoCampo = LCase(Folha1.Cells(1, iColunaCorrente - 64))
      Izvēlēties Lieta sNomeDoCampo
         "grupa": fCampoAdifValido = True
         "zvanu": fCampoAdifValido = True
         "CQZ": fCampoAdifValido = True
         "režīms": 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 izejvielas"
          fCampoAdifValido = True
           - 64
        Lieta Else
          (1, iColunaCorrente - 64).Interior.Color = RGB(255, 0, 0)
          fCampoAdifValido = False
        ()
  Kā Integer Dim iLinhaCorrente
   ""
    Par iColunaCorrente = Asc(conColunaInicial) Lai Asc(sUltimaColuna) - 1
      Ja LCase(Folha1.Cells(1, Chr(iColunaCorrente))) = "grupa" Tad
        (iLinhaCorrente, Chr(iColunaCorrente)) & "M"
      Cits
        (Folha1.Cells(1, Chr(iColunaCorrente))) = "qso_date" Tad
          (Folha1.Cells(iLinhaCorrente, Chr(iColunaCorrente)), "-", "")
        Cits
          (Folha1.Cells(1, Chr(iColunaCorrente))) = "time_on" Tad
            (Folha1.Cells(iLinhaCorrente, Chr(iColunaCorrente)), ":", "")
          Cits
            (iLinhaCorrente, Chr(iColunaCorrente))
          Beigas Ja
         & "<" & LCase(Folha1.Cells(1, Chr(iColunaCorrente))) & ":" & Tikai(sTextoNaCelula) & ">" & sTextoNaCelula
    (iLinhaCorrente, iAdifRaw) = SLinhaEmAdif & "<" & "EOR" & ">"
  Nākamais

 

Noklikšķiniet uz File / Save xls2adi.xls un aizveriet VBA redaktoru.

Tagad kopēt datus jūsu MS Excel faili© Jūs vēlaties konvertēt uz atbilstošās kolonnas, nopietni atmest beigās un MS Excel©.

Jums var būt nepieciešams, lai mainītu iestatījumus MS Excel sugurança© , lai palaistu makro, ja nepieciešams, iet uz Tools / Macro un noklikšķiniet uz Drošības, jāizvēlas zemākā līmenī. Tas bija rakstīts MS Excel© em MS Windows XP© (gan portugāļu valodā). Ja jūs izmantosiet šo kodu citā valodā, piemēram, angļu valodā, aizstāt terminu "Sheet1’ por 'Lapa1’

Kad jūs dubultklikšķi uz faila xls2adi.xls, kods, kuru jūs tikko ievadīti tiks izpildīts, un kolonnu “ADIF RAW” ir mūsu Ieiet ADIF formātā.

Tagad, lai pabeigtu, atlasiet kolonnu saturu “ADIF RAW” e COPIE (Ctrl C), sākums Notepad (Notepad) e Cole (Ctrl V). Saglabāt failu ar papildu pagarinājumu,.

Šis kods paraugs ir brīvi izmantot, Jūs varat brīvi izmantot. Tas ir ļoti vienkāršs piemērs tam, ko var veikt tikai izmantojot VBA (Visual Basic for Applications). Papildināt šo kodu apstiprināšana, ar precīzāku, jo īpaši jomā "qso_date’ e 'time_on ", kur formātiem jāatbilst specifikācijai ADIF. Ja Jūs pamanāt kļūdu vai ir kādi jautājumi, nevilcinieties komentēt. Es ceru, ka raksts būs noderīgs.

Birkas: ,

Instalēšana Debian NVIDIA videokartēm

Tā ir, vēl viena "Kā …’ un atkal par nVidia grafikas, atšķirība ir tā, ka tas strādā perfekti par mani (nav gan Debian un Ubuntu nav).

Pirmais ieteikums ir apmeklēt vietas lejupielādēt vadītājiem NVIDIA, izvēlēties modeli uz kartes, OS (manā gadījumā 32 bitu Linux) e linguagem. A iespēja 2 nedarbojas Linux. Klikšķiniet DOWNLOAD, kopēt saiti adresi, kas ir uz pogas PIEKRĪTU & DOWNLOAD (kaut kā http://us.download.nvidia.com/XFree86/Linux-x86/190.53/NVIDIA-Linux-x86-190.53-pkg1.run).

Atvērt termināla un tips su lai iet root.

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

Tips cd /usr/src pamudinājusi putni šajā direktorijā.

Tips ln -s linux-headers-$(uname -r) linux izveidot simbolisko saiti.

Tips wget un noklikšķiniet peles labo pogu, lai ielīmētu saiti nokopēto lapu no NVIDIA (būs stāvēt kā wget http://us.download.nvidia.com/XFree86/Linux-x86/190.53/NVIDIA-Linux-x86-190.53-pkg1.run).

Tips /etc/init.d/gdm stop Tas apturēs gdm un iet uz terminālu. No šī punkta ir lietderīgi šo rakstu drukātā, tas būs bez grafisko vidi.

Tagad tas ir termināla uzvednē ievadiet cd /usr/src.

Tad palaidiet instalācijas skriptu, ierakstot NVIDIA sh NVIDIA-Linux-x86-190.53-pkg1.run.

Installer lūdz, lai jūs sāktu, lai akceptētu licences līgumu.

Atbilde NO jautājums par lejupielādi kodolu no NVIDIA.

Klikšķiniet OK sastādīt jauna kodola.

Klikšķiniet NO pie message "… pārtraukt tagad ".

Ļaujiet installer un izvēlieties Turpināt lai varētu automātiski atjaunināt savu xorg.conf ar Nvidia-xconfig.

Klikšķiniet OK un tad, kad uzstādītājs apdari, paliks atkal termināla ātri, pēc tam ievadiet startx , lai sāktu savu X serveri atkal.

Tagad jūs varat mainīt atrisināšana un citi papildu iestatījumus videokartes NVIDIA X Server Settings lietderība, kas ir System Tools izvēlni (System Tools).

Birkas: , , ,

ASCII uz UTF-8 Converter

ASC2UTF8 ir maza lietderība, lai pārvērstu daži speciālās rakstzīmes no ASCII uz UTF-8.

ASC 2 UTF-8 Converter

Gatavojot, ar noteiktas frekvences, tekstus iekļaut php skriptus, bija vajadzība rakstīt šo lietderība Gambas2.

Strādājot ar divām vai vairākām valodām atbalss HTML vidē, rakstīt speciālās rakstzīmes var būt interesants izaicinājums,. Izmantojot META tag <meta http-equiv=Content-Type content="text/html; charset=UTF-8"> un konversijas tabula UTF-8 var būt labs risinājums (iemesls vismaz ar mani). Lietderība ASC2UTF8 tikai pārveido dažas speciālās rakstzīmes, kam tie ir nepieciešami, lai pārvērstu man faziam. O avots var viegli mainīt, lai citu speciālo rakstzīmi.

Birkas: , ,

Como instalar o OpenOffice 3.1 Debian nav 5.0 Lenny

Par Debian Lenny defeito izklāstīts OpenOffice 2.6.4, Bet OpenOffice 3.1 tika atbrīvots, uzstādīt, vienkārši izpildiet šīs darbības:

  • Pievieno repozitorija backports, kā root, rediģēt / etc / apt / sources.list un pievienojiet līnija deb http://www.backports.org/debian lenny-backports main contrib non-free
  • Atvērt konsoli (como root)
  • Instale o "Debian backports keyring’ rakstīt apt-get install debian-backports-keyring
  • Update pakotņu sarakstu, ierakstot apt-get update
  • Por FIM instale o OpenOffice.org apt-get -t lenny-backports install openoffice.org

Un gatavs, notiek. O OpenOffice.org 3.1 ir uzstādīta un gatava lietošanai, digité 'openoffice.org’ mierināt vai izmantot izvēlni "Pieteikumi".

Birkas: