SoloCodigo

Aquí seguimos, "Alive and kicking" como dirían los Simple Minds 

Un abrazo a todos!

pasa captura del error

Buenas omo estan? Necesito de la ayuda de todos ustedes que son expertos! Tengo una tabla donde uno de sus campos es de tipo MEMO. Lo que quiero es hacer un programa que me guarde el contenido en el campo memo en un archivo TXT y cuyo nombre sea el id de esa tupla. No se si me explico.
Aguardo cualquier sugerencia ya que nunca programe en VFP y para este trabajo necesito hacerlo.
Gracias! 

alguien pudiera ayudarme con un error que da python. Es que quiero mostrar el texto "Hola a todos" en pantalla, y tengo el siguiente codigo para mostrarlo (el cual me da error):
tengo una carpeta llamada myproy1 que contiene una carpeta llamada miapp...
en miapp/urls.py tengo el siguiente codigo:

from django.urls import path

from . import views

urlpatterns = [
    path('', views.index, name='index'),
]


en myproy1/urls.py tengo el siguiente codigo:

from django.contrib import admin
from django.urls import include, path

from django.utils import timezone

urlpatterns = [
    path('miapp/', include('miapp.urls')),
    path('admin/', admin.site.urls),
   
   
]

mientras que en el settings.py tengo el siguiente codigo:
LANGUAGE_CODE = 'en-us'


TIME_ZONE = 'UTC'



USE_I18N = True

USE_TZ = True


cuando ejecuto la siguiente url (http://localhost:8000/miapp/) me da el siguiente error:

  File "E:\python 3 instalado\lib\zoneinfo\_common.py", line 24, in load_tzdata
    raise ZoneInfoNotFoundError(f"No time zone found with key {key}")
zoneinfo._common.ZoneInfoNotFoundError: 'No time zone found with key America/Chi
cago'

que pudiera ser?

Buenos días. Tengo un problema a la hora de leer un fichero y quitar un CR como salto de linea, si utilizo un chomp o un chop() me pone todo en una linea menos la que quiero, ya que el resto de las lineas tiene un LF como salto de linea y no se como decirle que quiero que sea el CR, probe a que lo lea en hex y que quite el 0x0D, pero nada.

Alguna idea?

   my $FichR = $pathDestino."\\".$dsn;
   
    open(FICHERO, '<:encoding(UTF-8)', $FichR) or die "No se pudo abrir el $pathDestino./.$dsn";
    open(SALIDA, ">$pathDestino/.$dsn");
       while ($linea1 = <FICHERO>){
          chop $linea if substr($linea, -1) eq chr(0x0D);
          print SALIDA $linea1;
       }
       close (FICHERO);
       close (SALIDA);