根据 R 中 truncate 函数的手册页，在包括 Windows 在内的某些平台上:

... it will not work for large (> 2Gb) files

经过一些实验，我设法编写了一个玩具示例，表明可以使用 Visual C++ 对大文件(非常容易)执行此操作:

// ConsoleApplication1.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include <windows.h>
#include <tlhelp32.h>
#include <tchar.h>
#include <iostream>
#include <string>

//  Forward declarations:
void append(LPCTSTR, LPCVOID, DWORD);
void readTail(LPCTSTR, LPVOID, DWORD);
void truncateTail(LPCTSTR, long);


int main()
{
    LPCTSTR fn = L"C:/kaiyin/kybig.out";
    char buf[] = "helloWorld"; 
    append(fn, buf, 10);
    BYTE buf1[10] = {0};
    readTail(fn, buf1, 5);
    std::cout << (char*) buf1 << std::endl;
    //truncateTail(fn, 5);
    //for (int i = 0; i < 10; i++) {
    //  buf1[i] = 0;
    //}
    //readTail(fn, buf1, 5);
    //std::cout << (char*) buf1 << std::endl;

    printf("End of program\n");
    std::string s = "";
    std::getline(std::cin, s);
    return 0;
}

void append(LPCTSTR filename, LPCVOID buf, DWORD writeSize) {
    LARGE_INTEGER size;
    size.QuadPart = 0;
    HANDLE fh = CreateFile(filename, GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
    GetFileSizeEx(fh, &size);
    SetFilePointerEx(fh, size, NULL, FILE_BEGIN);
    WriteFile(fh, buf, writeSize, NULL, NULL);
    CloseHandle(fh);
}

void readTail(LPCTSTR filename, LPVOID buf, DWORD readSize) {
    LARGE_INTEGER size;
    size.QuadPart = 0;
    HANDLE fh = CreateFile(filename, GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
    GetFileSizeEx(fh, &size);
    size.QuadPart -= readSize;
    SetFilePointerEx(fh, size, NULL, FILE_BEGIN);
    ReadFile(fh, buf, readSize, NULL, NULL);
    CloseHandle(fh);
}

void truncateTail(LPCTSTR filename, long truncateSize) {
    LARGE_INTEGER size;
    size.QuadPart = 0;
    HANDLE fh = CreateFile(filename, GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ, NULL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL);
    if (fh == INVALID_HANDLE_VALUE) {
        std::cerr << GetLastError();
        return;
    }
    GetFileSizeEx(fh, &size);
    size.QuadPart -= truncateSize;
    SetFilePointerEx(fh, size, NULL, FILE_BEGIN); 
    if (SetEndOfFile(fh) == 0) {
        std::cerr << GetLastError();
        return;
    }
    CloseHandle(fh);
}

这会将“helloWorld”附加到文件“C:/kaiyin/kybig.out”，然后截断“World”。在控制台中，它应该打印“World”(截断前的尾部)，然后是“hello”(截断后的尾部)。

截断大于 2GB 的文件的尾部似乎完全没有问题 -- 事实上，我已经用 4e9 字节的文件进行了测试，程序仍然可以正常运行。

我是不是遗漏了什么，或者截断函数确实可以在 Windows 上可靠(且轻松)地实现？

更新

按照@hrbrmstr 对this R bugzilla link 的引用，我尝试了一些 R 代码来验证 truncate 函数是否在 Windows 8.1 上正常工作:

filename = "C:/kaiyin/kybig.out"
f = file(filename, "w")
seek(f, 5L, "end")
truncate(f)
file.info(filename)$size

结果:

> filename = "C:/kaiyin/kybig.out"
> f = file(filename, "w")
> seek(f, 5L, "end")
[1] 0
> truncate(f)
NULL
> file.info(filename)$size
[1] 0

显然 truncate 只是丢弃所有内容，尽管 seek 接近尾声。

最佳答案

Am I missing something, or is it true that the truncate function can indeed be reliably (and easily) implemented on Windows?

可能的解释是问题与 Windows 无关，而与 R 函数的实现有关。在 Windows 上，它可能使用带符号的 32 位整数来指定截断的文件大小，因此存在限制。

文档可能已过时也是有可能的，R 开发人员现在已经设法弄清楚如何在 Windows 上正确实现此功能。

关于r - 在 Windows 上截断大文件，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/32736335/