SoloCodigo

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);

Ya tenemos nueva versión de Perl, la v5.36.

Perl 5.36.0 representa aproximadamente un año de desarrollo desde Perl 5.34.0 y contiene aproximadamente 250 000 líneas modificadas a lo largo de 200 archivos por parte de 82 autores.

Excluyendo los archivos autogenerados, documentación y herramientas de publicación, fueron aproximadamente 190 000 líneas modificadas en 1300 archivos .pm, .t, .c y .h.

Las novedades que trae (entre otras):

Cambios principales

• signatures deja de ser experimental (desde v5.20) y se activa por defecto
  

Pero algunos elementos de las firmas de subrutina aún quedan como experimentales.

• isa considerado característica estable (desde v5.32), por lo que se activa por defecto. Consultar perlop.
  
• se desactivan las características indirect y multidimensional.
  Ya no se puede escribir $x = new Class; ni $x = $hash{3,5,42};
  Consultar feature.
  
• la característica experimental switch (desde v5.10) se ha quitado de use v5.36. Se puede seguir usando (no recomendado), pero hay que activarla explícitamente.
  
• nueva opción en línea de comandos, -g, es un alias de -0777. Consultar perlrun.
  
• soporte para Unicode 14.0.
• los "conjuntos regex" ya no se consideran experimentales (desde v5.18). Ejemplo: /(?[ ( \p{Thai} + \p{Lao} ) & \p{Digit} ])/
  Esta expresión casa con dígitos que son tanto Thai como Laosianos. Consultar perlrecharclass.
  
• los vistazos hacia atrás de longitud variable en patrones de exp. reg. ya no se consideran experimentales. Ahora, en "aaz"=~/(?=z)(?<=(a|aa))/, $1 contendrá "aa" (la coincidencia de mayor longitud).
  
• seguimiento estable de los valores booleanos. Ahora, los valores booleanos resultado de expresiones como !!0 y !!1 así como los de los resultados de funciones y operadores incorporados, mantienen su naturaleza como valor booleano. Hay una nueva función, is_bool() que puede servir para comprobar si un valor es booleano.
  
• (experimental) iterar sobre múltiples valores al mismo tiempo:

Consultar perlsyn.

• (experimental) nuevo módulo builtin.
  Ofrece información y acceso a nuevas funciones o a las nuevas funciones incorporadas experimentales. Las de v5.36 son:
  
  • builtin::trim Elimina los espacios en blanco que haya al principio y final de la cadena de texto
    
  • builtin::indexed Devuelve una lista el doble de grande que la lista argumento, con cada elemento precedido por el índice de ese elemento. Esto es útil para recorrer arrays.
    
  Código: Perl
  1. use builtin 'indexed';
  2. foreach my ($index, $val) (indexed @array) {
  • builtin:true, builtin::false, builtin::is_bool Valores de verdad y función para comprobar si un valor es booleano.
    
  • builtin::weaken, builtin::unweaken, builtin::is_weak Cambio en el tratamiento de referencias a una variable, para ser eliminada o no por el recolector de basura.
    
  • builtin::blessed, builtin::refaddr, builtin::reftype Más información sobre referencias (incluso si no lo son).
    
  • builtin::ceil, builtin::floor Redondeo al entero igual o inferior, o al igual o superior del valor dado.
    
• (experimental) bloques defer. Definen secciones de código que se ejecutarán durante la salida del ámbito en que se encuentren esos bloques.
  
  Código: Perl
  1. use feature 'defer';
  2. {
  3.     say "This happens first";
  4.     defer {
  5.        say "This happens last";
  6.     }
  7.     say "And this happens inbetween";
  8. }
• (experimental) try/catch ahora tiene un bloque finally. Proporciona código que se ejecutará al final de la construcción.
  
• (experimental) delimitadores no ASCII para entrecomillar. Ahora se podrá escribir $text = qw« hola adios »;
  
• (experimental) @_ experimental en firmas de subrutinas. Ejemplo:
  
  Código: Perl
  1. use v5.36;
  2. sub f ($x, $y = 123) {
  3.   say "The first argument is $_[0]";
  4. }
  provocará una advertencia.
  

Cambios incompatibles

• un sort vacío (sin argumentos), ahora es un fallo en tiempo de compilación.
  @a = sort;
  

Obsolescencias

• use VERSION (con VERSION inferior a 5.11) después de un use v5.11 (rebajar de versión), ahora es obsoleto. Ejemplo:
  
  Código: Perl
  1. use v5.14;
  2. say "say está permitido";
  3. use v5.8;   # genera una advertencia
  4. print "Debemos usar print\n";
  Plataformas obsoletas
  
  • AT&T UWIN
  • DOS/DJGPP
  • NetWare

Sigo el tema por si encuentras solucion