تبدیل فایل های اکسل در ورود به ADIF

فرآیند تبدیل از ورود به سیستم MS اکسل© به ADIF نسبتا ساده است و می تواند انجام شود با استفاده از یک بیت از برنامه نویسی VBA. از طریق این پیوند می تواند اشاره به مشخصات ADIF 1.0 است که توسط بسیاری از ورود به سیستم استفاده می شود, مهم است که شما این سند به عنوان خوانده شده.

برای شروع یک فرآیند تبدیل بر اساس شروع به آموزش این با ایجاد یک فایل در اکسل©. در کتانی نخستین نویسنده به نام رشته شما می خواهید به واردات (لطفا ADIF 1.0 از نام رشته). حتی در خط اول, نوع “ADIF RAW” تاریخ و زمان آخرین سلول, این است که در آن متن را در ADIF نوشته شده است.

برگه است که شبیه به این (اما هنوز هیچ اطلاعاتی در خط 2). اگر چه در قالب ADIF یک حداقل تعداد رشته ها مشخص نیست, حداقل QSO ورود به سیستم شما باید مقادیر را به تماس شده اند, QSO_Date, Time_On, گروه حالت E.

سپس برگه را انتخاب کنید و تمامی فرمت سلول ها به صورت متن.

فایل را ذخیره کنید به عنوان xls2adi.xls (کاربرگ در اکسل©)

اجازه دهید ما هم اکنون نوشتن و وارد کردن کد در VBA. برو به ابزارهای / ماکرو کلیک کنید و ویژوال بیسیک تدوینگر (کلیدهای Alt F11).

در ویرایشگر VBA ThisWorkbook دوبار کلیک کنید’ است که در این پروژه – 'VBAProject. این جایی است که شما می توانید بلوک اصلی از کد که اجرا خواهد شد وقتی که این فایل را باز دوباره.

بلوک از کد که زیر مجموعه های برخی از متغیرها و فراخوانی تابع fCampoAdifValido (خط 05) است که چک به نام حوزه است که در خط اول مربوط به مشخصات از ADIF. اگر تمام نام فیلد ها تابع درست تماس pEscreveAdif روش (خط 09) خواهد شد ورود به سیستم در ADIF نوشتن, اگر یک میدان است نام تابع را نشان می دهد بی اعتبار ، پیام خطا (خط 07) و به پایان می رسد.

کپی / چسباندن و یا نوع کد زیر را:

 

پیام زیر Workbook_Open()
  به عنوان بولی کم bNomeDoCampoValido iUltimaLinha = fQualEAUltimaLinha(conLinhaInicial)
  sUltimaColuna = fQualEAUltimaColuna(conColunaInicial)
  bNomeDoCampoValido = fCampoAdifValido(conColunaInicial, sUltimaColuna)
    اگر bNomeDoCampoValido = FALSE سپس MsgBox ("یافت نام فیلد نامعتبر" & vbCrLf & "حذف ستون پر شده با رنگ قرمز!")
    پایان دیگری pEscreveAdif IfEnd زیر

در ویرایشگر VBA ، کلیک کنید درج / ماژول. در این ماژول می شود کد باقی مانده است که توسط بلوک اصلی به نام.

conLinhaInicial ثابت (خط 02 بلوک بعدی) و conColunaInicial (خط 03 بلوک بعدی) تعریف خط 2 (گسترده) از ثبت نام اول و که ستون (گسترده) اولین زمینه.

fQualEAUltimaLinha توابع (خط 08 بلوک بعدی) و fQualEAUltimaColuna (خط 17 بلوک بعدی) تعیین خواهد کرد آخرین سطر و ستون اطلاعات. این نیاز به یک سلول خالی به معنای پایان پرونده ورود به سیستم.

fCampoAdifValido تابع (خط 05 بلوک قبلی) آزمون اعتبار نام زمینه. چرخه مورد انتخاب sNomeDoCampo’ (خط 31 بلوک بعدی) زمینه های بیشتر را می توان با توجه به مشخصات از ADIF اضافه شده.

pEscreveAdif روش (خط 09 بلوک قبلی) به متن در ستون است که ADIF نوشتن “ADIF RAW” خط اول. این روش از میدان Ifen QSO_DATE گرفته, دو نقطه از میدان و M TIME_ON در پایان گروه در قسمت اضافه شده. برای اینکه این کلان تر می توان به شرایط دقیق تر برای چک کردن داده ها در این روش اعمال.

کپی / چسباندن و یا نوع کد زیر را در داخل ماژول:

 

به توایع انتخاب ExplicitPublic conLinhaInicial به عنوان عدد صحیح = 2
توایع عمومی conColunaInicial به عنوان رشته = "A"
iUltimaLinha IntegerPublic sUltimaColuna به عنوان رشته(iPrimeiraLinha به عنوان عدد صحیح) IValRecebido به عنوان تار عدد صحیح به عنوان عدد صحیح = iValRecebido iPrimeiraLinha     (Folha1.Cells(iValRecebido, "A")) > 0
      iValRecebido = iValRecebido + 1
    حلقه fQualEAUltimaLinha = iValRecebido - 1
عملکرد پایان

(sPrimeiraColuna رشته) رشته
  (sPrimeiraColuna)
    آیا در حالی که لن(Folha1.Cells(1, CHR(iValRecebido))) > 0
      iValRecebido = iValRecebido + 1
    حلقه
  (iValRecebido - 1)
عملکرد پایان

(sPrimeiraColuna رشته, sUltimaColuna به عنوان رشته) بولی
  (sPrimeiraColuna) برای صعودی(sUltimaColuna)
      sNomeDoCampo = LCase(Folha1.Cells(1, iColunaCorrente - 64))
      انتخاب کنید مورد sNomeDoCampo
         "باند": fCampoAdifValido = مورد واقعی = "دعوت": fCampoAdifValido = مورد واقعی = "CQZ": fCampoAdifValido = مورد واقعی = "حالت": fCampoAdifValido = مورد واقعی = "qso_date": fCampoAdifValido = مورد واقعی = "rst_rcvd": fCampoAdifValido = مورد واقعی = "rst_sent": fCampoAdifValido = مورد واقعی = "SRX": fCampoAdifValido = مورد واقعی = "stx": fCampoAdifValido = مورد واقعی = "time_on": fCampoAdifValido = مورد واقعی = "adif خام"
          fCampoAdifValido = واقعی
           - 64
        مورد دیگر Folha1.Cells(1, iColunaCorrente - 64).Interior.Color = RGB(255, 0, 0)
          fCampoAdifValido = پایان غلط انتخاب تابع بعدیانتها()
  به عنوان تار iLinhaCorrente صحیح
   ""
    برای iColunaCorrente = صعودی(conColunaInicial) برای صعودی(sUltimaColuna) - 1
      اگر LCase(Folha1.Cells(1, CHR(iColunaCorrente))) = "باند" سپس sTextoNaCelula = Folha1.Cells(iLinhaCorrente, CHR(iColunaCorrente)) & "M"
      دیگری اگر LCase(Folha1.Cells(1, CHR(iColunaCorrente))) = "qso_date" سپس sTextoNaCelula = به جای(Folha1.Cells(iLinhaCorrente, CHR(iColunaCorrente)), "-", "")
        دیگری اگر LCase(Folha1.Cells(1, CHR(iColunaCorrente))) = "time_on" سپس iLinhaCorrenteelula = به جای(Folha1.Cells(iLinhaCorrente, CHR(iColunaCorrente)), ":", "")
          دیگری sTextoNaCelula = Folha1.Cells(iLinhaCorrente, CHR(iColunaCorrente))
          پایان اگر پایان اگر پایان اگر sLinhaEmAdif = sLinhaEmAdif & "<" & LCase(Folha1.Cells(1, CHR(iColunaCorrente))) & ":" & تنها(sTextoNaCelula) & ">" & Folha1.Cells sTextoNaCelula بعدی(iLinhaCorrente, iAdifRaw) = SLinhaEmAdif & "<" & "EOR" & ">"
  بعدیانتها زیر

 

کلیک کنید فایل / ذخیره xls2adi.xls و بسته ویرایشگر VBA.

در حال حاضر اطلاعات خود را در MS فایل اکسل را کپی کنید© می خواهید تبدیل به ستون های مناسب, جدی ترک در پایان و اکسل©.

شما ممکن است نیاز به تغییر تنظیمات برای اکسل sugurança© برای اجرای ماکرو, در صورت نیاز به ابزارهای / ماکرو کلیک کنید و به امنیت, سطح پایین تر را انتخاب کنید. این برای اکسل نوشته شده بود© EM MS ویندوز XP© (هر دو در نسخه پرتغالی). اگر شما این کد در یک زبان دیگر استفاده از, به عنوان مثال در زبان انگلیسی, جایگزین Sheet1 مدت’ Sheet1 POR’

هنگامی که شما با دوبار کلیک xls2adi.xls فایل, کد شما فقط وارد اجرا خواهد شد و ستون “ADIF RAW” است ورود ما در قالب ADIF.

در حال حاضر به پایان, انتخاب مطالب ستون “ADIF RAW” الکترونیک copie (کلیدهای Ctrl C), شروع به دفترچه یادداشت (دفترچه یادداشت) الکترونیک کول (کلیدهای Ctrl V). فایل را ذخیره کنید با پسوند های اضافی.

این نمونه کد می باشد به رایگان استفاده کنید, شما آزادانه می توانید استفاده کنید. این یک مثال بسیار ساده است که فقط می تواند انجام شود با استفاده از VBA است (ویژوال بیسیک برای برنامه های کاربردی). این مکمل سنجی با کد دقیق تر, به خصوص در qso_date زمینه’ E 'time_on, که در آن باید از فرمت های ADIF مشخصات بازی. اگر شما متوجه خطا و یا هر گونه سوال, دریغ نکنید به نظر. من امیدوارم این مقاله مفید.

برچسب ها: ,

نصب دبیان NVIDIA کارت گرافیک

است, یکی دیگر از چگونه به …’ و دوباره بر روی کارت گرافیک های nVidia, تفاوت این است که این کار کاملا برای من (هر دو در اوبونتو و دبیان را نمی).

توصیه اول این است که بازدید از سایت دانلود درایور NVIDIA, انتخاب مدل از کارت, سیستم عامل (در مورد من 32 بیتی در لینوکس) E یک linguagem. A انتخاب 2 برای لینوکس کار نمی کند. کلیک کنید دانلود, کپی کنید آدرس لینک است که بر روی دکمه موافقت & دانلود (چیزی شبیه به HTTP://us.download.nvidia.com/XFree86/Linux-x86/190.53/NVIDIA-Linux-x86-190.53-pkg1.run).

یک ترمینال را باز و نوع su به پاس ریشه.

نوع apt-get install build-essential linux-headers-$(uname -r).

نوع cd /usr/src سریع به پرندگان به این شاخه.

نوع ln -s linux-headers-$(uname -r) linux برای ایجاد پیوند نمادی.

نوع wget و کلیک بر روی دکمه راست موس را لینک به رب شما کپی صفحه را از NVIDIA (خواهد ایستاد به عنوان wget http://us.download.nvidia.com/XFree86/Linux-x86/190.53/NVIDIA-Linux-x86-190.53-pkg1.run).

نوع /etc/init.d/gdm stop این دیابت بارداری و توقف عبور را به ترمینال. از این نقطه مناسب است که به این مقاله چاپ شده, آن را بدون محیط گرافیکی می شود.

در حال حاضر است که در یک ترمینال وارد کنید فوری cd /usr/src.

پس از آن اسکریپت نصب با تایپ کردن NVIDIA راه اندازی sh NVIDIA-Linux-x86-190.53-pkg1.run.

نصب از شما می خواهد شروع به پذیرفتن توافقنامه مجوز.

پاسخ NO سوال در مورد دانلود از هسته از NVIDIA.

کلیک کنید خوب به کامپایل کرنل جدید.

کلیک کنید NO در پیام… سقط ای 'now.

اجازه دهید برنامه نصب را انتخاب کنید و ادامه بله اجازه دادن به بروز رسانی خودکار از فایل xorg.conf نمیباشد خود را با NVIDIA - xconfig.

کلیک کنید خوب و هنگامی که پس از اتمام نصب, دوباره ماندن در خط فرمان ترمینال, سپس وارد startx برای شروع سرور X خود را دوباره.

حالا شما می توانید با وضوح و سایر تنظیمات پیشرفته برای کارت گرافیک های NVIDIA X سرور ابزار تنظیمات است که در منوی Tools سیستم را تغییر دهید (ابزارهای سیستم).

برچسب ها: , , ,

ASCII به UTF - 8 تبدیل

ASC2UTF8 یک ابزار کوچک برای تبدیل برخی از کاراکترهای خاص از ASCII را به UTF - 8 است.

ASC 2 UTF-8 Converter

در آماده سازی, با برخی از فرکانس, متون به در اسکریپت پی اچ پی, آمد نیاز به نوشتن این ابزار در Gambas2.

وقتی که کار با دو یا چند زبان را در محیط های HTML اکو, نوشتن کاراکتر خاص می تواند یک چالش جالب. با استفاده از متا تگ <meta http-equiv=Content-Type content="text/html; charset=UTF-8"> و یک جدول برای تبدیل UTF - 8 می تواند یک راه حل خوب (نتیجه حداقل با من). ASC2UTF8 ابزار تنها در تبدیل برخی از کاراکترهای خاص, کسانی که در واقع نیاز به من faziam تبدیل. O منبع به راحتی می توان به شخصیت های خاص دیگر تغییر.

برچسب ها: , ,

Como instalar O آفیس اپن سورس 3.1 دبیان نمی کند 5.0 لنی

برای دبیان لنی defeito در اپن سورس مشخص 2.6.4, اما اپن سورس 3.1 منتشر شد, را نصب کنید ، فقط به سادگی این مراحل را دنبال:

  • اضافه کردن مخزن backports, ویرایش ریشه به عنوان / و غیره / دستور apt / sources.list برای اضافه کنید و در خط deb http://www.backports.org/debian lenny-backports main contrib non-free
  • باز کردن کنسول (como ریشه)
  • Instale ای backports دبیان جاکلیدی’ تایپ کردن apt-get install debian-backports-keyring
  • بروز رسانی لیست تمام بسته با تایپ کردن apt-get update
  • POR FIM instale O OpenOffice.org apt-get -t lenny-backports install openoffice.org

و آماده, ساخته شده است. O OpenOffice.org 3.1 نصب شده است و آماده برای استفاده, openoffice.org digite’ کنسول یا استفاده از 'برنامه ها' منو.

برچسب ها: