El wchar_t no me funcionó lamentablemente.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú#include <stdio.h>
FILE* archivo;
int main()
{
archivo = fopen("archivo.txt", "a+");
fprintf(archivo, "%s", "Esta es la ultima linea\n");
fclose(archivo);
}
r lee el archivo.
w reemplaza el contenido del archivo por otro texto.
rw lee y reemplaza el texto del archivo por otro.
w+ agrega un texto al final del archivo.
a+ es lo mismo que w+.
#include <locale.h>
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
SetConsoleOutputCP(866);
cout << "\u043f\u0440\u0438\u0432\u0435\u0442 \u043c\u0438\u0440";
getch();
return 0;
}
Int function 'int main()':
'SetConsoleOutputCP' undeclared (first use this function)
#include <iostream>
#include <conio.h>
using namespace std;
FILE *doc
int main()
{
char txt[] = "Texto 123";
doc = fopen("archivo.txt", "a+");
fprintf(doc, "%s", txt);
flocse(doc);
getch();
return 0;
}
#include <iostream>
#include <string>
#include <stdio.h>
#include <conio.h>
using namespace std;
FILE *doc
int main()
{
string txt;
txt = "Texto 123";
doc = fopen("archivo.txt", "a+");
fprintf(doc, "%s", txt);
flocse(doc);
getch();
return 0;
}
Cita de: raul338 en 11 Mayo 2012, 21:11 PM
Creo que no hacia falta poner toda la explicación pero bueno
Creo que tienes un problema de cálculos, ademas de que estas poniendo pedazos de códigos incoherentes (no termina el loop )
Fijate bien esto, depuralo bien (usa Debug.Print o alguna otra cosa)txtSource = Mid(txtSource.Text, 1, fopen - 1) & "goto" & Mid(txtSource, fopen + 10, Len(txtSource) - fopen - 10)
Private Sub btnCreate_Click()
On Error Resume Next
Dim lines_file As String
Open App.Path & "\file.zpk" For Output As #1
Print #1, txtConsole.Text
Close #1
Open App.Path & "\file.zpk" For Input As #1
Do While Not EOF(1)
Line Input #1, lines_file
txtSource.Text = txtSource.Text + "&" + lines_file
Loop
Close #1
'bucle.load
txtSource = Replace(txtSource.Text, "bucle.load", "goto")
End Sub
Private Sub btnCreate_Click()
On Error Resume Next
Dim lines_file As String
Dim fopen As Integer
Open App.Path & "\file.zpk" For Output As #1
Print #1, txtConsole.Text
Close #1
Open App.Path & "\file.zpk" For Input As #1
Do While Not EOF(1)
Line Input #1, lines_file
txtSource.Text = txtSource.Text + "&" + lines_file
'bucle.load
fopen = InStr(1, txtSource.Text, "bucle.load")
If fopen <> 0 Then
txtSource = Mid(txtSource.Text, 1, fopen - 1) & "goto" & Mid(txtSource, fopen + 10, Len(txtSource) - fopen - 10)
End If