ÆØÅ fra DOS til Windows

' Tegnsætkonvertering ASCII/ANSI
Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long


Public Function VBCharToOem(ByVal sInd As String) As String
    On Error GoTo OnErr
    CharToOem sInd, sInd
    VBCharToOem = sInd
    Exit Function
   
OnErr:
    Resume Next
End Function

Public Function VBOemToChar(ByVal sInd As String) As String
    On Error GoTo OnErr
    OemToChar sInd, sInd
    VBOemToChar = sInd
    Exit Function
   
OnErr:
    Resume Next
End Function

CharToOEM konverterer fra Windows -> DOS (ANSI -> ASCII)
OEMToChar konverterer fra DOS -> Windows (ASCII -> ANSI)

Jeg er ikke lige så hård til VB, men i dette tilfælde bliver jeg nød til at bruge det...

Men altså hvis jeg har en variabel som hedder 'var1' hvordan ændre jeg så æøå til rigtig format?

OEMToChar(var1) ?

Eller VBOemToChar(var1) ?

Eller hvad?

Den kode, jeg postede, kan du sætte ind i et modul. Så har du fra det modul to public function, du kan bruge.

sOEMstring = vbchartooem(sANSIstring)

sANSIString = vboemtochar(sOEMString)

Altså jeg har en kæmpe fil som der laver det der æøå forkert...

Men hvor skal jeg sætte denne kode ind?

Der er 2 sub's... En MAIN og en anden en...

"
sOEMstring = vbchartooem(sANSIstring)

sANSIString = vboemtochar(sOEMString)
"

Går det ikke lidt i ring eller er det mig?

Men altså kan du ikke skrive det med en variabel med navn 'var1'?

vboemtochar(var1)

Forresten jeg skal kun have fra DOS til Windows functionen...

Skal den function-koden være i sub MAIN eller i den anden?

Function-koden skal ikke være i sub Main.

Du opretter et nyt modul (.bas) og paster teksten mellem <Snip> og </Snip> ind i det.

<Snip>
' Tegnsætkonvertering ASCII/ANSI
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long



Public Function VBOemToChar(ByVal sInd As String) As String
    On Error Resume Next
    OemToChar sInd, sInd
    VBOemToChar = sInd
End Function
</Snip>

Herefter kan du bruge det overalt således:

VBOemToChar(Var1)

hvor den returnerede streng er konverteret fra DOS til Windows.

"Du opretter et nyt modul (.bas)..." - Forklar... Jeg aner ingenting...

Project, Add Module

Derefter kopierer du alt mellem <Snip> og </Snip> og sætter ind i kodevinduet i det nye modul. Navnet på det er fløjtende ligegyldigt - bare det kan gemmes uden fejlmeddelelser.

Hmm... Jeg har måske lige glemt at sige jeg sidder med notesblok...

Selve det jeg laver/retter i er et tilføjelses program/modul til et andet program, så jeg sidder bare og skriver i notesblok i en fil (.cbs) som så bliver kørt af det andet program, når det starter op...

Men det der står i .cbs-filen er VB kode...

Hvorfor F..... (undskyld) bruger du nodepad til at redigere VB kode? Har du ikke adgang til en visual basic? Det er en mil gange nemmere, da du får syntax tjek med løbende. Desuden er der mange andre ting, der håndteres en mil gange bedre i Visual Basic end i notepad.

Næste postning kan du kopiere totalt og sætte ind i en fil og gemme den som EtEllerAndet.bas

Option Explicit

' Tegnsætkonvertering ASCII/ANSI
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long



Public Function VBOemToChar(ByVal sInd As String) As String
    On Error Resume Next
    OemToChar sInd, sInd
    VBOemToChar = sInd
End Function

Rettelse:

Attribute VB_Name = "modOEM"
Option Explicit

' Tegnsætkonvertering ASCII/ANSI
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long



Public Function VBOemToChar(ByVal sInd As String) As String
    On Error Resume Next
    OemToChar sInd, sInd
    VBOemToChar = sInd
End Function

Gem forrige som "modOEM.bas"

Indsæt derefter i vpb-filen (Visual Basic Project) følgende linie:

Module=modOEM; modOEM.bas

Jeg har ikke adgang til nogen VB-editor, men det jeg har rettet har kun været småting...

Men så et spm. mere... Hvis jeg nu laver en fil kaldet extrakode.bas og putter det indhold der ind i, hvordan får jeg det så over i den anden fil, altså .cbs'en?

Hmm... Glemte hvis at opdatere...

Nå... Der er mere...

Nu har jeg så gjort det... Men altså den melder fejl... Og det er lige meget om jeg sætter 'Module=modOEM; modOEM.bas' inde i Sub MAIN eller lige før...

Fejlen er: End of statement expected.

Linien

Module=modEOM; modOEM.bas

skal sættes ind i <Project>.vbp

Det er IKKE kode - det er en oplysning til VB-compileren om, at den skal have filen modOEM.bas med under navnet modOEM.

Jamen... Koden bliver jo ikke compilet... Den bliver bare kørt direkte af det andet program...

Kan man ikke bare lave noget andet..?

Nu skal jeg lige have noget på det rene:

Snakker vi Visual Basic, eller snakker vi en eller anden form for VBScript?

"Selve det jeg laver/retter i er et tilføjelses program/modul til et andet program, så jeg sidder bare og skriver i notesblok i en fil (.cbs) som så bliver kørt af det andet program, når det starter op..."

Altså inde i programmet der hedder det 'kør kommando', og den fil jeg retter i det er en som en eller anden prof. har lavet... Men han er på ferie i øjeblikket så nu bliver jeg nødtil selv at prøve...
Men altså det er noget script-ting som bliver kørt af det program... Men den der function-ting kan den ikke lægges ind i selve det her script?

Altså i scriptet der er der en sub MAIN, som med mellemrum checker om en fil eksistere... Hvis denne fil så eksistere, så køre den filen igennem og splitter den ved hver komma, disse bliver så til variabler som bliver sat ind i programmet, og den sætte så disse variabler ind i en skabelon, hvorefter der så bliver udskrevet en masse labels... Selve den komma seperede-fil kommer fra concorden C5 (DOS-version)...

Det virker på nær ÆØÅ... Og det er så det jeg vil have til at virke ved at kigge i det script, og så køre alle de variabler i gennem en funktion som erstatter ÆØÅ (DOS) til ÆØÅ (Windows)...

Og altså selve, den der sub MAIN, hvis den finder den fil, så sender starter den en anden sub...

Dit script understøtter højst sandsynlig ikke API-kald.

Men du er nok i en forkert kategori - der er andre grupper, der omhandler forskellige former for scripts.

IMHO bør du lukke her og flytte til en relevant kategori.

Jamen, kan dine functions ikke stå andre steder end i en .bas-fil?

Hvilken kategori skulle jeg ellers vælge?

functions VB* kan godt

Problemet er declare function ... der indikerer import af en funktion fra en Windows DLL. Det kan Visual Basic. Det kan VBScript ikke.

VBScript har sin egen kategori under Programmering : Script : VBScript
I kategorien Programmering : Script kan du se hvilke script-grupper, der er oprettet.

Okay, nu forstår jeg...

http://www.eksperten.dk/spm/370888

Lukket... Tak for din indsats benny.tordrup