Tukar Excel fail log untuk ADIF

Proses menukarkan MS Excel log© untuk ADIF adalah agak mudah dan boleh dilakukan menggunakan sedikit pengaturcaraan VBA. Melalui ini pautan Spesifikasi boleh berunding ADIF 1.0 yang digunakan oleh program-program yang paling log, adalah penting bahawa anda membaca dokumen-dokumen ini.

Untuk memulakan proses penukaran berdasarkan mula tutorial ini dengan mencipta fail dalam MS Excel©. The Linh pertama Tulis nama bidang yang anda akan mahu untuk mengimport (Lihat Spesifikasi ADIF 1.0 relatif kepada nama medan). Masih di barisan hadapan, jenis “ADIF RAW” sel terakhir, ini adalah di mana teks akan ditulis dalam ADIF.

Spreadsheet adalah salah satu aspek seperti ini (tetapi masih tiada data on-line 2). Walaupun format ADIF tidak menetapkan bilangan minimum bidang, sekurang-kurangnya rekod anda mesti mempunyai nilai untuk Panggilan QSO, QSO_Date, Time_On, Mod Band e.

Kemudian pilih lembaran keseluruhan dan format sel-sel sebagai teks.

Simpan fail sebagai xls2adi.xls (Spreadsheet MS Excel©)

Marilah kita sekarang menulis dan memasukkan kod ke dalam VBA. Pergi ke Tools / Makro, dan klik Editor Visual Basic (Alt F11).

Dalam editor VBA dua klik 'ThisWorkbook’ yang dalam Projek ' – VBAProject '. Ini adalah di mana anda mendapatkan blok utama kod yang akan dilaksanakan apabila membuka lagi fail ini.

Blok kod yang berikut mentakrifkan beberapa pembolehubah dan panggilan fCampoAdifValido fungsi (garis 05) yang akan memeriksa jika nama bidang yang baris pertama sepadan dengan spesifikasi ADIF. Jika semua bidang adalah nama-nama yang betul fungsi panggilan pEscreveAdif prosedur (garis 09) yang akan menulis log masuk ADIF, Jika salah satu bidang mempunyai nama yang tidak sah fungsi menunjukkan mesej ralat (garis 07) dan berakhir.

Menyalin / menampal atau taip kod berikut:

 

Private Sub Workbook_Open()
  Sebagai Boolean Dim bNomeDoCampoValido
  (conLinhaInicial)
  sUltimaColuna = fQualEAUltimaColuna(conColunaInicial)
  bNomeDoCampoValido = fCampoAdifValido(conColunaInicial, sUltimaColuna)
    Jika bNomeDoCampoValido = False Kemudian
       ("Found nama medan tidak sah" & vbCrLf & "Keluarkan tiang yang dipenuhi dengan warna merah!")
    Lagi
      

Dalam editor VBA, klik Insert / Modul. Adakah modul ini akan mendapat baki kod yang dipanggil oleh blok utama.

Pemalar conLinhaInicial (garis 02 blok seterusnya) dan conColunaInicial (garis 03 blok seterusnya) menentukan garis 2 (Hamparan) adalah rekod pertama dan lajur A (Hamparan) medan pertama.

Fungsi fQualEAUltimaLinha (garis 08 blok seterusnya) dan fQualEAUltimaColuna (garis 17 blok seterusnya) akan menentukan baris dan lajur terakhir data. Ini memerlukan bahawa sel kosong bermakna akhir rekod log.

FCampoAdifValido fungsi (garis 05 blok sebelumnya) menguji kesahihan nama bidang. Pilih Kes Kitaran sNomeDoCampo’ (garis 31 blok seterusnya) lebih banyak bidang boleh ditambah mengikut spesifikasi ADIF.

PEscreveAdif prosedur (garis 09 blok sebelumnya) akan menulis teks dalam ruang yang mempunyai ADIF “ADIF RAW” baris pertama. Prosedur ini diambil dari bidang Ifen QSO_DATE, Bidang kolon dan ditambah TIME_ON satu hujung medan BAND M. Untuk membuat makro syarat-syarat yang lebih ketat boleh dikenakan lebih banyak data pengesahan prosedur dalam ini.

Menyalin / menampal atau taip kod berikut ke dalam modul:

 

Option Explicit
 2
Awam malar conColunaInicial Sebagai String = "A"
Sebagai Integer Awam iUltimaLinha
(iPrimeiraLinha Sebagai Integer) Sebagai Integer
  (Folha1.Cells(iValRecebido, "A")) > 0
      iValRecebido = iValRecebido + 1
    Gelung
   - 1
Fungsi Akhir

(sPrimeiraColuna Sebagai String) Rentetan
  (sPrimeiraColuna)
    Adakah Walaupun Len(Folha1.Cells(1, Chr(iValRecebido))) > 0
      iValRecebido = iValRecebido + 1
    Gelung
  (iValRecebido - 1)
Fungsi Akhir

(sPrimeiraColuna Sebagai String, sUltimaColuna Sebagai String) Boolean The
  (sPrimeiraColuna) Untuk menaik(sUltimaColuna)
      sNomeDoCampo = LCase(Folha1.Cells(1, iColunaCorrente - 64))
      Pilih Kes sNomeDoCampo
         "band": fCampoAdifValido = Benar
         "memanggil": fCampoAdifValido = Benar
         "CQZ": fCampoAdifValido = Benar
         "mod": fCampoAdifValido = Benar
         "qso_date": fCampoAdifValido = Benar
         "rst_rcvd": fCampoAdifValido = Benar
         "rst_sent": fCampoAdifValido = Benar
         "SRX": fCampoAdifValido = Benar
         "STX": fCampoAdifValido = Benar
         "time_on": fCampoAdifValido = Benar
         "adif mentah"
          fCampoAdifValido = Benar
           - 64
        Kes lain
          (1, iColunaCorrente - 64).Interior.Color = RGB(255, 0, 0)
          fCampoAdifValido = False
        ()
  As Integer Dim iLinhaCorrente
   ""
    Untuk iColunaCorrente = menaik(conColunaInicial) Untuk menaik(sUltimaColuna) - 1
      Jika LCase(Folha1.Cells(1, Chr(iColunaCorrente))) = "band" Kemudian
        (iLinhaCorrente, Chr(iColunaCorrente)) & "M"
      Lagi
        (Folha1.Cells(1, Chr(iColunaCorrente))) = "qso_date" Kemudian
          (Folha1.Cells(iLinhaCorrente, Chr(iColunaCorrente)), "-", "")
        Lagi
          (Folha1.Cells(1, Chr(iColunaCorrente))) = "time_on" Kemudian
            (Folha1.Cells(iLinhaCorrente, Chr(iColunaCorrente)), ":", "")
          Lagi
            (iLinhaCorrente, Chr(iColunaCorrente))
          Akhir Jika
         & "<" & LCase(Folha1.Cells(1, Chr(iColunaCorrente))) & ":" & Hanya(sTextoNaCelula) & ">" & sTextoNaCelula
    (iLinhaCorrente, iAdifRaw) = SLinhaEmAdif & "<" & "EOR" & ">"
  Seterusnya

 

Klik Fail / Simpan xls2adi.xls dan menutup editor VBA.

Sekarang menyalin data dari fail Excel MS anda© anda mahu menukar kepada ruangan yang bersesuaian, serius pada akhir dan menamatkan MS Excel©.

Anda mungkin perlu menukar tetapan dan undang-undang yang ditetapkan MS Excel© untuk melaksanakan makro, jika perlu pergi ke Tools / Makro, dan klik Keselamatan, memilih tahap yang lebih rendah. Prosedur ini telah ditulis untuk MS Excel© em MS Windows XP© (kedua-dua dalam versi Inggeris). Jika anda menggunakan kod ini dalam bahasa lain, contohnya dalam bahasa Inggeris, menggantikan Sheet1 istilah '’ por 'Sheet1’

Apabila anda klik dua kali xls2adi.xls fail, kod yang kami hanya memasukkan akan dilaksanakan dan lajur “ADIF RAW” Log kami dalam format ADIF.

Sekarang untuk menyelesaikan, pilih kandungan lajur “ADIF RAW” e catatan (Ctrl C), melancarkan Notepad (Notepad) e cole (Ctrl V). Simpan fail dengan adi lanjutan.

Ini contoh kod adalah penggunaan percuma, ia bebas boleh menggunakan. Ia adalah satu contoh yang sangat mudah apa yang boleh dilakukan hanya menggunakan VBA (Visual Basic untuk Permohonan). Melengkapkan pengesahan kod dengan lebih tepat, terutama dalam bidang qso_date’ 'time_on' e, mana format mesti sepadan dengan spesifikasi ADIF. Jika anda perasan sebarang kesilapan atau mempunyai apa-apa soalan, berasa bebas untuk mengulas. Saya harap artikel ini akan berguna.

Tags: ,

Pasang Debian NVIDIA grafik kad

Yeah, satu lagi 'Bagaimana untuk …’ dan sekali lagi pada Grafik nVidia, perbezaan adalah bahawa ini berfungsi dengan sempurna bagi saya (oleh itu tidak Debian sebagai Ubuntu).

Cadangan pertama adalah untuk melawat tapak memunggah pemandu NVIDIA, memilih model papan anda, OS (dalam kes saya Linux 32-bit) e a linguagem. A pilihan 2 tidak bekerja untuk Linux. Klik DOWNLOAD, menyalin alamat butang pautan yang BERSETUJU & DOWNLOAD (apa-apa seperti http://us.download.nvidia.com/XFree86/Linux-x86/190.53/NVIDIA-Linux-x86-190.53-pkg1.run).

Buka terminal dan taip su untuk lulus akar.

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

Masukkan cd /usr/src untuk burung segera untuk direktori ini.

Masukkan ln -s linux-headers-$(uname -r) linux untuk mencipta pautan simbolik.

Masukkan wget dan klik butang kanan tetikus untuk menampal pautan anda disalin halaman dari NVIDIA (akan berdiri sebagai wget http://us.download.nvidia.com/XFree86/Linux-x86/190.53/NVIDIA-Linux-x86-190.53-pkg1.run).

Masukkan /etc/init.d/gdm stop ini akan berhenti gdm dan pas ke terminal. Dari sudut ini, ia adalah sesuai untuk mempunyai artikel ini bercetak, ia akan menjadi tanpa persekitaran grafik.

Sekarang anda berada dalam jenis prompt terminal cd /usr/src.

Kemudian melancarkan skrip pemasangan dengan menaip NVIDIA sh NVIDIA-Linux-x86-190.53-pkg1.run.

Pemasang menggesa anda untuk mula menerima perjanjian lesen.

Menjawab NO Soalan tentang memuat turun kernel NVIDIA.

Klik OK untuk menyusun kernel baru.

Klik NO di 'mesej… membatalkan sekarang '.

Biarkan pemasang untuk meneruskan dan pilih Ya untuk membolehkan kemas kini automatik xorg.conf anda untuk nVidia-xconfig.

Klik OK dan apabila pemasang selesai, akan tinggal lagi di prompt terminal, kemudian taipkan startx untuk memulakan pelayan X anda lagi.

Sekarang anda boleh mengubah resolusi dan maju lain tetapan kad grafik melalui NVIDIA X Server Tetapan utiliti yang berada dalam menu Alat Sistem (System Tools).

Tags: , , ,

ASCII kepada UTF-8 Penukar

ASC2UTF8 adalah utiliti kecil untuk menukar beberapa aksara khas dari ASCII kepada UTF-8.

ASC 2 UTF-8 Converter

Dalam menyediakan, dengan kekerapan tertentu, teks untuk termasuk dalam skrip php, datang keperluan untuk menulis utiliti ini dalam Gambas2.

Apabila bekerja dengan dua atau lebih bahasa dalam persekitaran mengulangi HTML, watak menulis khas boleh menjadi satu cabaran yang menarik. Menggunakan tag META <meta http-equiv=Content-Type content="text/html; charset=UTF-8"> dan jadual penukaran UTF-8 boleh menjadi satu penyelesaian yang baik (sekurang-kurangnya membawa saya). ASC2UTF8 utiliti hanya menukarkan beberapa aksara khas, sebenarnya orang-orang yang faziam saya mahu menukar. The sumber boleh dengan mudah berubah watak lain khas.

Tags: , ,

Como instalar o OpenOffice 3.1 Tidak Debian 5.0 Lenny

Secara lalai Debian OpenOffice ciri Lenny 2.6.4, bagaimanapun OpenOffice 3.1 dilancarkan, untuk memasang anda hanya ikuti langkah-langkah:

  • Tambah Backports repositori, sebagai akar edit / etc / apt / sources.list dan tambah baris deb http://www.backports.org/debian lenny-backports main contrib non-free
  • Buka konsol (como akar)
  • Debian Backports Instale o 'gegelang kunci’ menaip apt-get install debian-backports-keyring
  • Kemaskini senarai pakej dengan menaip apt-get update
  • Por im instale o OpenOffice.org apt-get -t lenny-backports install openoffice.org

Dan bersedia, dilakukan. O OpenOffice.org 3.1 dipasang dan sedia untuk digunakan, digite 'openoffice.org’ konsol atau menggunakan 'Aplikasi' menu.

Tags: