Строку можно проверить этой процедурой на наличие только цифр в ней.

Procedure.b TestNumber(String.s) ; Проверяет чтобы в строке были только цифры.
  Protected Result.b, Len, Char.s, i
  Result = #True
  Len = Len(String)

  For i=1 To Len
    Char = Mid(String, i, 1)
    If Char<"0" Or Char>"9"
      Result = #False ; Недопустимый символ.
      Break
    EndIf
  Next i
  
  ProcedureReturn Result
EndProcedure

Если будут обнаружены недопустимые символы, то можно сообщить об этом и попросить заново ввести число.

Ниже ведь вы написали ответ.

Разве текст хранится не в строковых переменных?

Procedure.s CharToOem(String.s) 
  CharToOem_(@String, @String) 
  ProcedureReturn String 
EndProcedure

OpenConsole()
String.s="текст"
PrintN(CharToOem(String))
Input()

Добрый день. Совсем запутался. Записываю информацию в текстовый файл с помощью найденого на форуме примера. Отображается всё корректно

Procedure.s GetProgramResult(File.s,Parameters.s)
  Shared GetProgramResultExitCode.l
  Protected Buff.s{1000} 
  Pid=RunProgram(File,Parameters,"",#PB_Program_Open|#PB_Program_Read|#PB_Program_Hide)
  If Pid
    While ProgramRunning(Pid)
      If AvailableProgramOutput(Pid)
        *s=Ascii(ReadProgramString(Pid, #PB_Ascii))
        If *s
          OemToChar_(*s, @Buff)
          FreeMemory(*s)
          Output.s+Buff+Chr(10)
        EndIf
      EndIf
    Wend
    GetProgramResultExitCode=ProgramExitCode(Pid)
    CloseProgram(Pid)
    ProcedureReturn Output
  EndIf 
EndProcedure
CreateFile(#ip_config, "ip_config.txt")
WriteStringN(#ip_config, GetProgramResult("netsh","interface ip show config"))
CloseFile(#ip_config)

После из этого файла при необходимости достаю нужные параметры ,записываю строку в батник и запускаю  от имени администратора.
где lan(1)="Беспроводная сеть"

WriteStringN(1,"netsh interface ip set address name="+Chr(34)+lan(1)+Chr(34)+" static 192.168.1.2 255.255.255.0 192.168.1.1")

Естественно результат иероглифы.

Не пойму в каком месте его надо перекодировать.Текстовый документ в кодировке UTF-8. Если я просто копирую текст из сохраненого файла и вставляю  в запущеную командную строку
в виндовс,то всё выполняется. Попытки добавить команды в батник типа chcp с различными кодировками не дали результатов. Я понимаю что нужно перекодировать "Беспроводная сеть"
из UTF-8 в ОЕМ 866.Если в виндовс в региональных стандартах поставить галочку в дополнительных настройках языка,то всё работает. Но это не выход,так как ломаются
другие программы,в том чиле и Purebasic. Т.е. его нужно перкодировать внутри кода,но хоть убейте не пойму как)))

Smitis, спасибо большое. Помог флаг после WriteStringN  #PB_Ascii . А я дурак делал   с точность наоборот   chcp  65001 и #PB_UTF8.